(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    253721,       5147]
NotebookOptionsPosition[    253242,       5131]
NotebookOutlinePosition[    253663,       5148]
CellTagsIndexPosition[    253620,       5145]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
     "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
     "**", "**", "**", "**", "**", "**", "**", "**"}], "*****)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"findQprLimitsNTilde", 
     RowBox[{"(*", 
      RowBox[{"[", "1", "]"}], "*)"}], "[", 
     RowBox[{
     "etaMin_", ",", "nTilde_", ",", "etaMech_", ",", "KN_", ",", "rho_", ",",
       "KChargeMin_", ",", "KChargeMax_", ",", "NNom_", ",", "KRev_", ",", 
      "TAir_", ",", "pAir_", ",", "KT_", ",", "KU_", ",", "TAirNom_", ",", 
      "pAirNom_", ",", "QprNomMin_", ",", "QprNomMax_"}], "]"}], ":=", 
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "QprMinAB", ",", "QprMaxAB", ",", "QprMinCD", ",", "QprMaxCD", ",", 
        "QprMin", ",", "QprMax"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{"QprMinAB", ",", "QprMaxAB"}], "}"}], "=", 
        RowBox[{"findQprLimitsAB", "[", 
         RowBox[{"etaMin", ",", "QprNomMin", ",", "QprNomMax"}], "]"}]}], ";",
        "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"QprMinCD", ",", "QprMaxCD"}], "}"}], "=", 
        RowBox[{"findQprLimitsCD", "[", 
         RowBox[{
         "nTilde", ",", "etaMech", ",", "KN", ",", "rho", ",", "KChargeMin", 
          ",", "KChargeMax", ",", "NNom", ",", "KRev", ",", "TAir", ",", 
          "pAir", ",", "KT", ",", "KU", ",", "TAirNom", ",", "pAirNom"}], 
         "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"QprMin", ",", "QprMax"}], "}"}], "=", 
        RowBox[{"intersectionQprLimits", "[", 
         RowBox[{
         "QprMinAB", ",", "QprMaxAB", ",", "QprMinCD", ",", "QprMaxCD"}], 
         "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"Return", "[", 
        RowBox[{"{", 
         RowBox[{"QprMin", ",", "QprMax"}], "}"}], "]"}]}]}], 
     "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
      "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", 
     "**", "**", "**", "**", "**", "**", "**", "**", "**"}], "*****)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"findQprLimits", 
      RowBox[{"(*", 
       RowBox[{"[", 
        RowBox[{"1", "-", "2"}], "]"}], "*)"}], "[", 
      RowBox[{
      "etaMin_", ",", "nNomMin_", ",", "nNomMax_", ",", "etaMech_", ",", 
       "KN_", ",", "rho_", ",", "KChargeMin_", ",", "KChargeMax_", ",", 
       "NNom_", ",", "KRev_", ",", "TAir_", ",", "pAir_", ",", "KT_", ",", 
       "KU_", ",", "TAirNom_", ",", "pAirNom_", ",", "QprNomMin_", ",", 
       "QprNomMax_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "QprMin", ",", "QprMax", ",", "QprMinNomMin", ",", "QprMaxNomMin", 
         ",", "QprMinNomMax", ",", "QprMaxNomMax"}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{"QprMinNomMin", ",", "QprMaxNomMin"}], "}"}], "=", 
         RowBox[{"findQprLimitsNTilde", "[", 
          RowBox[{"etaMin", ",", 
           RowBox[{"nNomMin", "/", "nNomMax"}], ",", "etaMech", ",", "KN", 
           ",", "rho", ",", "KChargeMin", ",", "KChargeMax", ",", "NNom", ",",
            "KRev", ",", "TAir", ",", "pAir", ",", "KT", ",", "KU", ",", 
           "TAirNom", ",", "pAirNom", ",", "QprNomMin", ",", "QprNomMax"}], 
          "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"QprMinNomMax", ",", "QprMaxNomMax"}], "}"}], "=", 
         RowBox[{"findQprLimitsNTilde", "[", 
          RowBox[{
          "etaMin", ",", "1", ",", "etaMech", ",", "KN", ",", "rho", ",", 
           "KChargeMin", ",", "KChargeMax", ",", "NNom", ",", "KRev", ",", 
           "TAir", ",", "pAir", ",", "KT", ",", "KU", ",", "TAirNom", ",", 
           "pAirNom", ",", "QprNomMin", ",", "QprNomMax"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"QprMin", ",", "QprMax"}], "}"}], "=", 
         RowBox[{"unionQprLimits", "[", 
          RowBox[{
          "QprMinNomMin", ",", "QprMaxNomMin", ",", "QprMinNomMax", ",", 
           "QprMaxNomMax"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"Return", "[", 
         RowBox[{"{", 
          RowBox[{"QprMin", ",", "QprMax"}], "}"}], "]"}]}]}], 
      "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
      "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", 
     "**", "**", "**", "**", "**", "**", "**", "**", "**"}], "*****)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"constructBSplinesFromGpraphics", "[", "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", "n", "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"n", "=", 
         RowBox[{"Length", "[", "QprOrdered", "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"epsilonPts75", "=", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"QprOrdered", "[", 
              RowBox[{"[", "l", "]"}], "]"}], ",", 
             RowBox[{"dataEpsilonZeroPointSeventyFive", "[", 
              RowBox[{"[", "l", "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"l", ",", "n"}], "}"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"epsilonPts80", "=", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"QprOrdered", "[", 
              RowBox[{"[", "l", "]"}], "]"}], ",", 
             RowBox[{"dataEpsilonZeroPointEighty", "[", 
              RowBox[{"[", "l", "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"l", ",", "n"}], "}"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"epsilonPts85", "=", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"QprOrdered", "[", 
              RowBox[{"[", "l", "]"}], "]"}], ",", 
             RowBox[{"dataEpsilonZeroPointEightyFive", "[", 
              RowBox[{"[", "l", "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"l", ",", "n"}], "}"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"epsilonPts90", "=", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"QprOrdered", "[", 
              RowBox[{"[", "l", "]"}], "]"}], ",", 
             RowBox[{"dataEpsilonZeroPointNinety", "[", 
              RowBox[{"[", "l", "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"l", ",", "n"}], "}"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"epsilonPts95", "=", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"QprOrdered", "[", 
              RowBox[{"[", "l", "]"}], "]"}], ",", 
             RowBox[{"dataEpsilonZeroPointNinetyFive", "[", 
              RowBox[{"[", "l", "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"l", ",", "n"}], "}"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"epsilonPts100", "=", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"QprOrdered", "[", 
              RowBox[{"[", "l", "]"}], "]"}], ",", 
             RowBox[{"dataEpsilonOnePointZero", "[", 
              RowBox[{"[", "l", "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"l", ",", "n"}], "}"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"epsilonPts105", "=", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"QprOrdered", "[", 
              RowBox[{"[", "l", "]"}], "]"}], ",", 
             RowBox[{"dataEpsilonOnePointZeroFive", "[", 
              RowBox[{"[", "l", "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"l", ",", "n"}], "}"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"epsilonPts110", "=", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"QprOrdered", "[", 
              RowBox[{"[", "l", "]"}], "]"}], ",", 
             RowBox[{"dataEpsilonOnePointOne", "[", 
              RowBox[{"[", "l", "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"l", ",", "n"}], "}"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"etaPts", "=", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"QprOrdered", "[", 
              RowBox[{"[", "l", "]"}], "]"}], ",", 
             RowBox[{"dataEta", "[", 
              RowBox[{"[", "l", "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"l", ",", "n"}], "}"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"NprPts", "=", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"QprOrdered", "[", 
              RowBox[{"[", "l", "]"}], "]"}], ",", 
             RowBox[{"dataNpr", "[", 
              RowBox[{"[", "l", "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"l", ",", "n"}], "}"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"epsilon", " ", "interpolation", " ", "B"}], "-", 
          "Splines"}], "*)"}], "\[IndentingNewLine]", 
        RowBox[{"fEpsilon75", "=", 
         RowBox[{"BSplineFunction", "[", "epsilonPts75", "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"fEpsilon80", "=", 
         RowBox[{"BSplineFunction", "[", "epsilonPts80", "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"fEpsilon85", "=", 
         RowBox[{"BSplineFunction", "[", "epsilonPts85", "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"fEpsilon90", "=", 
         RowBox[{"BSplineFunction", "[", "epsilonPts90", "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"fEpsilon95", "=", 
         RowBox[{"BSplineFunction", "[", "epsilonPts95", "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"fEpsilon100", "=", 
         RowBox[{"BSplineFunction", "[", "epsilonPts100", "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"fEpsilon105", "=", 
         RowBox[{"BSplineFunction", "[", "epsilonPts105", "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"fEpsilon110", "=", 
         RowBox[{"BSplineFunction", "[", "epsilonPts110", "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"eta", " ", "interpolation", " ", "B"}], "-", "Spline"}], 
         "*)"}], "\[IndentingNewLine]", 
        RowBox[{"fEta", "=", 
         RowBox[{"BSplineFunction", "[", "etaPts", "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"Npr", " ", "interpolation", " ", "B"}], "-", "Spline"}], 
         "*)"}], "\[IndentingNewLine]", 
        RowBox[{"fNpr", "=", 
         RowBox[{"BSplineFunction", "[", "NprPts", "]"}]}], ";"}]}], 
      "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
      "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", 
     "**", "**", "**", "**", "**", "**", "**", "**", "**"}], "*****)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"constructRangeOfAdmissibleRegimes", "[", 
      RowBox[{"gpaID_", ",", "time_", ",", "eps_", ",", "deltaNTilde_"}], 
      "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"k", "=", "gpaID"}], ",", "nNomMin", ",", "NNom", ",", 
         "KRev", ",", "KT", ",", "KU", ",", "KFG", ",", "QprNomMin", ",", 
         "QprNomMax", ",", "etaMin", ",", "QFuelGasNom", ",", "pIn", ",", 
         "TIn", ",", "rhon", ",", "mMolar", ",", "nFact", ",", "Rspecific", 
         ",", "CO2", ",", "hs", ",", "H2", ",", "Q", ",", "rho", ",", "TAir", 
         ",", "pAir", ",", "NAvailable", ",", "Qvolume", ",", "QprLocal", ",",
          "nNomMax", ",", "etaMech", ",", "KN", ",", "KChargeMin", ",", 
         "KChargeMax", ",", "nNom", ",", "QprMin", ",", "QprMax", ",", 
         "nTildeMin", ",", "nTildeMax", ",", "nTildeCurrent", ",", 
         "nComputed", ",", "QprComputed", ",", "KUd", ",", "etaComputed", ",",
          "epsilonComputed", ",", "pOutComputed", ",", "NprComputed", ",", 
         "NiComputed", ",", "NComputed", ",", "NReserveComputed", ",", 
         "KChargeComputed", ",", "KA", ",", "QFuelGasComputed", ",", 
         RowBox[{"QprArray", "=", 
          RowBox[{"{", "}"}]}], ",", 
         RowBox[{"epsilonValues", "=", 
          RowBox[{"{", "}"}]}], ",", 
         RowBox[{"etaValues", "=", 
          RowBox[{"{", "}"}]}], ",", 
         RowBox[{"NprValues", "=", 
          RowBox[{"{", "}"}]}], ",", "ordered", ",", 
         RowBox[{"deltaQpr", "=", "0.1"}], ",", "admissibleRegimesPt", ",", 
         "nTildePr", ",", "ZIn", ",", 
         RowBox[{"molarDensity", "=", "1"}], ",", "epsiloNom", ",", 
         "epsilonMin", ",", "NPower", ",", "powerInner", ",", "l", ",", 
         "lenArray", ",", "available", ",", 
         RowBox[{"countQpr", "=", "0"}], ",", "needEta", ",", "numPoints", 
         ",", "t"}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"pIn", "=", 
         RowBox[{"inPressures", "[", 
          RowBox[{"[", 
           RowBox[{"time", ",", "gpaID"}], "]"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{"clear", " ", "arrays"}], "*)"}], "\[IndentingNewLine]", 
        RowBox[{"admissibleRegimesPts", "=", 
         RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"admissibleRegimesViaEtaPts", "=", 
         RowBox[{"Table", "[", 
          RowBox[{"0", ",", 
           RowBox[{"{", 
            RowBox[{"t", ",", 
             RowBox[{"Length", "[", "segmentsArrEta", "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"l", ",", "0"}], "}"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"pIn", ">", "0"}], "&&", 
           RowBox[{"!", 
            RowBox[{"MemberQ", "[", 
             RowBox[{"nonConsideredArr", ",", "time"}], "]"}]}]}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"(*", 
           RowBox[{
            RowBox[{
             RowBox[{"--", 
              RowBox[{"-", "static"}]}], " ", 
             RowBox[{"data", "--"}]}], "-"}], "*)"}], "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"nNomMin", "=", 
            RowBox[{"nMin", "[", 
             RowBox[{"[", "k", "]"}], "]"}]}], ";", 
           RowBox[{"nNomMax", "=", 
            RowBox[{"nMax", "[", 
             RowBox[{"[", "k", "]"}], "]"}]}], ";", 
           RowBox[{"etaMech", "=", 
            RowBox[{"mechanicalLossFactors", "[", 
             RowBox[{"[", "k", "]"}], "]"}]}], ";", 
           RowBox[{"KN", "=", 
            RowBox[{"powerFactorsAggregate", "[", 
             RowBox[{"[", "k", "]"}], "]"}]}], ";", 
           RowBox[{"KChargeMin", "=", 
            RowBox[{"KChargesMin", "[", 
             RowBox[{"[", "k", "]"}], "]"}]}], ";", 
           RowBox[{"KChargeMax", "=", 
            RowBox[{"KChargesMax", "[", 
             RowBox[{"[", "k", "]"}], "]"}]}], ";", 
           RowBox[{"nNom", "=", 
            RowBox[{"nMax", "[", 
             RowBox[{"[", "k", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"NNom", "=", 
            RowBox[{"powersDrive", "[", 
             RowBox[{"[", "k", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"KRev", "=", 
            RowBox[{"antifreezes", "[", 
             RowBox[{"[", "k", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"KT", "=", 
            RowBox[{"influenceAirDistributionPower", "[", 
             RowBox[{"[", "k", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"KU", "=", 
            RowBox[{"influenceHeatRecoverySystems", "[", 
             RowBox[{"[", "k", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"KFG", "=", 
            RowBox[{"fuelGasFactorsDrive", "[", 
             RowBox[{"[", "k", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"epsiloNom", "=", 
            RowBox[{"nomEpsilons", "[", 
             RowBox[{"[", "k", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"epsilonMin", "=", 
            RowBox[{"nomMinEpsilons", "[", 
             RowBox[{"[", "k", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"QprNomMin", "=", 
            RowBox[{"QprsNomMin", "[", 
             RowBox[{"[", "k", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"QprNomMax", "=", 
            RowBox[{"QprsNomMax", "[", 
             RowBox[{"[", "k", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"etaMin", "=", 
            RowBox[{"minEtas", "[", 
             RowBox[{"[", "k", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"QFuelGasNom", "=", 
            RowBox[{"nomFuelGasConsumptions", "[", 
             RowBox[{"[", "k", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{
             RowBox[{
              RowBox[{"--", 
               RowBox[{"-", "dynamic"}]}], " ", 
              RowBox[{"data", "--"}]}], "-"}], "*)"}], "\[IndentingNewLine]", 
           
           RowBox[{"TIn", "=", 
            RowBox[{
             RowBox[{"inTemperatures", "[", 
              RowBox[{"[", 
               RowBox[{"time", ",", "gpaID"}], "]"}], "]"}], "+", 
             "273.15"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"rhon", "=", 
            RowBox[{"rhons", "[", 
             RowBox[{"[", 
              RowBox[{"time", ",", "gpaID"}], "]"}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"mMolar", "=", 
            RowBox[{"mMolars", "[", 
             RowBox[{"[", 
              RowBox[{"time", ",", "gpaID"}], "]"}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"Rspecific", "=", 
            RowBox[{"calculateRspecific", "[", "mMolar", "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"CO2", "=", 
            RowBox[{"CO2s", "[", 
             RowBox[{"[", 
              RowBox[{"time", ",", "gpaID"}], "]"}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"hs", "=", 
            RowBox[{"hss", "[", 
             RowBox[{"[", 
              RowBox[{"time", ",", "gpaID"}], "]"}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"H2", "=", 
            RowBox[{"H2s", "[", 
             RowBox[{"[", 
              RowBox[{"time", ",", "gpaID"}], "]"}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"Q", "=", 
            RowBox[{"Qs", "[", 
             RowBox[{"[", 
              RowBox[{"time", ",", "gpaID"}], "]"}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"ZIn", "=", 
            RowBox[{"SGERG", "[", 
             RowBox[{"CO2", ",", "hs", ",", "H2", ",", 
              RowBox[{
               RowBox[{"kg2pa", "[", "pIn", "]"}], "*", 
               RowBox[{"10", "^", 
                RowBox[{"(", 
                 RowBox[{"-", "5"}], ")"}]}]}], ",", 
              RowBox[{"TIn", "-", "273.15"}], ",", "rhon", ",", 
              "molarDensity"}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"rho", "=", 
            RowBox[{"calculateRho", "[", 
             RowBox[{
              RowBox[{"kg2pa", "[", "pIn", "]"}], ",", "TIn", ",", 
              "Rspecific", ",", "CO2", ",", "hs", ",", "H2", ",", "rhon"}], 
             "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"Qvolume", "=", 
            RowBox[{"calculateQvolume", "[", 
             RowBox[{"Q", ",", "rhon", ",", "rho"}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"TAir", "=", 
            RowBox[{
             RowBox[{"temperaturesAir", "[", 
              RowBox[{"[", 
               RowBox[{"time", ",", "gpaID"}], "]"}], "]"}], "+", 
             "273.15"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"pAir", "=", 
            RowBox[{"millimeterMercury2pa", "[", 
             RowBox[{"pressuresAir", "[", 
              RowBox[{"[", 
               RowBox[{"time", ",", "gpaID"}], "]"}], "]"}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"NAvailable", "=", 
            RowBox[{"calculateNAvailable", "[", 
             RowBox[{
             "NNom", ",", "KN", ",", "KRev", ",", "TAir", ",", "pAir", ",", 
              "KT", ",", "KU", ",", "TAirNom", ",", "pAirNom"}], "]"}]}], ";",
            "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"QprMin", ",", "QprMax"}], "}"}], "=", 
            RowBox[{"findQprLimits", "[", 
             RowBox[{
             "etaMin", ",", "nNomMin", ",", "nNomMax", ",", "etaMech", ",", 
              "KN", ",", "rho", ",", "KChargeMin", ",", "KChargeMax", ",", 
              "NNom", ",", "KRev", ",", "TAir", ",", "pAir", ",", "KT", ",", 
              "KU", ",", "TAirNom", ",", "pAirNom", ",", "QprNomMin", ",", 
              "QprNomMax"}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"QprComputed", "=", 
            RowBox[{"QprMin", "//", "N"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"surgePtsGlobal", "=", 
            RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"While", "[", 
            RowBox[{
             RowBox[{"QprComputed", "<", "QprMax"}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"countQpr", "++"}], ";", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"nTildeMin", ",", "nTildeMax"}], "}"}], "=", 
               RowBox[{"findNTildeLimitsViaQpr", "[", 
                RowBox[{
                "QprComputed", ",", "KChargeMin", ",", "KChargeMax", ",", 
                 "NAvailable", ",", "etaMech", ",", "KN", ",", "rho"}], 
                "]"}]}], ";", "\[IndentingNewLine]", 
              RowBox[{"nTildeCurrent", "=", "nTildeMin"}], ";", 
              "\[IndentingNewLine]", 
              RowBox[{"While", "[", 
               RowBox[{
                RowBox[{"nTildeCurrent", "<", "nTildeMax"}], ",", 
                "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{"available", "=", "False"}], ";", 
                 "\[IndentingNewLine]", 
                 RowBox[{"KUd", "=", 
                  RowBox[{
                   RowBox[{"QprComputed", "/", "QprMin"}], "//", "N"}]}], ";",
                  "\[IndentingNewLine]", 
                 RowBox[{"etaComputed", "=", 
                  RowBox[{
                   RowBox[{"fEta", "[", 
                    RowBox[{"normalizeQpr", "[", "QprComputed", "]"}], "]"}], 
                   "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], ";", 
                 "\[IndentingNewLine]", 
                 RowBox[{"NprComputed", "=", 
                  RowBox[{
                   RowBox[{"fNpr", "[", 
                    RowBox[{"normalizeQpr", "[", "QprComputed", "]"}], "]"}], 
                   "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], ";", 
                 "\[IndentingNewLine]", 
                 RowBox[{"nTildePr", "=", 
                  RowBox[{"calculateNTildePr", "[", 
                   RowBox[{
                   "nTildeCurrent", ",", "ZIn", ",", "TIn", ",", 
                    "Rspecific"}], "]"}]}], ";", "\[IndentingNewLine]", 
                 RowBox[{"KChargeComputed", "=", 
                  RowBox[{"calculateKCharge", "[", 
                   RowBox[{
                   "nTildeCurrent", ",", "QprComputed", ",", "rho", ",", 
                    "NAvailable", ",", "etaMech", ",", "KN"}], "]"}]}], ";", 
                 "\[IndentingNewLine]", 
                 RowBox[{"powerInner", "=", 
                  RowBox[{"calculatePowerInner", "[", 
                   RowBox[{"nTildeCurrent", ",", "rho", ",", "NprComputed"}], 
                   "]"}]}], ";", "\[IndentingNewLine]", 
                 RowBox[{"NPower", "=", 
                  RowBox[{"calculatePower", "[", 
                   RowBox[{"powerInner", ",", "KN", ",", "etaMech"}], "]"}]}],
                  ";", "\[IndentingNewLine]", 
                 RowBox[{"available", "=", "False"}], ";", 
                 "\[IndentingNewLine]", 
                 RowBox[{"Which", "[", "\[IndentingNewLine]", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"Abs", "[", 
                    RowBox[{
                    RowBox[{"segmentsArrNtildePr", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], "-", "nTildePr"}], "]"}], 
                    "<", "eps"}], ",", "\[IndentingNewLine]", 
                   RowBox[{
                    RowBox[{"available", "=", "True"}], ";", 
                    "\[IndentingNewLine]", 
                    RowBox[{"epsilonComputed", "=", 
                    RowBox[{
                    RowBox[{"fEpsilon75", "[", 
                    RowBox[{"normalizeQpr", "[", "QprComputed", "]"}], "]"}], 
                    "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}]}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{
                    RowBox[{"Abs", "[", 
                    RowBox[{
                    RowBox[{"segmentsArrNtildePr", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "-", "nTildePr"}], "]"}], 
                    "<", "eps"}], ",", "\[IndentingNewLine]", 
                   RowBox[{
                    RowBox[{"available", "=", "True"}], ";", 
                    "\[IndentingNewLine]", 
                    RowBox[{"epsilonComputed", "=", 
                    RowBox[{
                    RowBox[{"fEpsilon80", "[", 
                    RowBox[{"normalizeQpr", "[", "QprComputed", "]"}], "]"}], 
                    "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}]}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{
                    RowBox[{"Abs", "[", 
                    RowBox[{
                    RowBox[{"segmentsArrNtildePr", "[", 
                    RowBox[{"[", "3", "]"}], "]"}], "-", "nTildePr"}], "]"}], 
                    "<", "eps"}], ",", "\[IndentingNewLine]", 
                   RowBox[{
                    RowBox[{"available", "=", "True"}], ";", 
                    "\[IndentingNewLine]", 
                    RowBox[{"epsilonComputed", "=", 
                    RowBox[{
                    RowBox[{"fEpsilon85", "[", 
                    RowBox[{"normalizeQpr", "[", "QprComputed", "]"}], "]"}], 
                    "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}]}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{
                    RowBox[{"Abs", "[", 
                    RowBox[{
                    RowBox[{"segmentsArrNtildePr", "[", 
                    RowBox[{"[", "4", "]"}], "]"}], "-", "nTildePr"}], "]"}], 
                    "<", "eps"}], ",", "\[IndentingNewLine]", 
                   RowBox[{
                    RowBox[{"available", "=", "True"}], ";", 
                    "\[IndentingNewLine]", 
                    RowBox[{"epsilonComputed", "=", 
                    RowBox[{
                    RowBox[{"fEpsilon90", "[", 
                    RowBox[{"normalizeQpr", "[", "QprComputed", "]"}], "]"}], 
                    "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}]}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{
                    RowBox[{"Abs", "[", 
                    RowBox[{
                    RowBox[{"segmentsArrNtildePr", "[", 
                    RowBox[{"[", "5", "]"}], "]"}], "-", "nTildePr"}], "]"}], 
                    "<", "eps"}], ",", "\[IndentingNewLine]", 
                   RowBox[{
                    RowBox[{"available", "=", "True"}], ";", 
                    "\[IndentingNewLine]", 
                    RowBox[{"epsilonComputed", "=", 
                    RowBox[{
                    RowBox[{"fEpsilon95", "[", 
                    RowBox[{"normalizeQpr", "[", "QprComputed", "]"}], "]"}], 
                    "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}]}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{
                    RowBox[{"Abs", "[", 
                    RowBox[{
                    RowBox[{"segmentsArrNtildePr", "[", 
                    RowBox[{"[", "6", "]"}], "]"}], "-", "nTildePr"}], "]"}], 
                    "<", "eps"}], ",", "\[IndentingNewLine]", 
                   RowBox[{
                    RowBox[{"available", "=", "True"}], ";", 
                    "\[IndentingNewLine]", 
                    RowBox[{"epsilonComputed", "=", 
                    RowBox[{
                    RowBox[{"fEpsilon100", "[", 
                    RowBox[{"normalizeQpr", "[", "QprComputed", "]"}], "]"}], 
                    "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}]}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{
                    RowBox[{"Abs", "[", 
                    RowBox[{
                    RowBox[{"segmentsArrNtildePr", "[", 
                    RowBox[{"[", "7", "]"}], "]"}], "-", "nTildePr"}], "]"}], 
                    "<", "eps"}], ",", "\[IndentingNewLine]", 
                   RowBox[{
                    RowBox[{"available", "=", "True"}], ";", 
                    "\[IndentingNewLine]", 
                    RowBox[{"epsilonComputed", "=", 
                    RowBox[{
                    RowBox[{"fEpsilon105", "[", 
                    RowBox[{"normalizeQpr", "[", "QprComputed", "]"}], "]"}], 
                    "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}]}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{
                    RowBox[{"Abs", "[", 
                    RowBox[{
                    RowBox[{"segmentsArrNtildePr", "[", 
                    RowBox[{"[", "8", "]"}], "]"}], "-", "nTildePr"}], "]"}], 
                    "<", "eps"}], ",", "\[IndentingNewLine]", 
                   RowBox[{
                    RowBox[{"available", "=", "True"}], ";", 
                    "\[IndentingNewLine]", 
                    RowBox[{"epsilonComputed", "=", 
                    RowBox[{
                    RowBox[{"fEpsilon110", "[", 
                    RowBox[{"normalizeQpr", "[", "QprComputed", "]"}], "]"}], 
                    "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}]}]}], 
                  "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
                 RowBox[{"admissibleRegimesPt", "=", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"QprComputed", "*", "nTildeCurrent"}], ",", 
                    "epsilonComputed"}], "}"}]}], ";", "\[IndentingNewLine]", 
                 
                 RowBox[{"If", "[", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"KChargeComputed", ">=", "KChargeMin"}], "&&", 
                    RowBox[{"KChargeComputed", "<=", "KChargeMax"}], "&&", 
                    RowBox[{"KUd", ">", "KUdMin"}], "&&", 
                    RowBox[{"NPower", "\[LessEqual]", "NAvailable"}], "&&", 
                    "available"}], ",", "\[IndentingNewLine]", 
                   RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"!", 
                    RowBox[{"MemberQ", "[", 
                    RowBox[{
                    "admissibleRegimesPts", ",", "admissibleRegimesPt"}], 
                    "]"}]}], ",", "\[IndentingNewLine]", 
                    RowBox[{"admissibleRegimesPts", "=", 
                    RowBox[{"Insert", "[", 
                    RowBox[{
                    "admissibleRegimesPts", ",", "admissibleRegimesPt", ",", 
                    RowBox[{"-", "1"}]}], "]"}]}]}], "\[IndentingNewLine]", 
                    "]"}], ",", "\[IndentingNewLine]", 
                   RowBox[{"(*", 
                    RowBox[{
                    "select", " ", "points", " ", "in", " ", "surge", " ", 
                    "zone"}], "*)"}], "\[IndentingNewLine]", 
                   RowBox[{
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"!", 
                    RowBox[{"MemberQ", "[", 
                    RowBox[{"surgePtsGlobal", ",", "admissibleRegimesPt"}], 
                    "]"}]}], ",", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{"needEta", "=", "True"}], ";", 
                    "\[IndentingNewLine]", 
                    RowBox[{"numPoints", "=", 
                    RowBox[{"Length", "[", "surgePtsGlobal", "]"}]}], ";", 
                    "\[IndentingNewLine]", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"numPoints", ">", "0"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{"For", "[", 
                    RowBox[{
                    RowBox[{"t", "=", "1"}], ",", 
                    RowBox[{"t", "\[LessEqual]", "numPoints"}], ",", 
                    RowBox[{"t", "++"}], ",", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"Abs", "[", 
                    RowBox[{
                    RowBox[{"QprComputed", "*", "nTildeCurrent"}], "-", 
                    RowBox[{"surgePtsGlobal", "[", 
                    RowBox[{"[", 
                    RowBox[{"t", ",", "1"}], "]"}], "]"}]}], "]"}], "<", 
                    "1"}], ",", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{"needEta", "=", "False"}], ";", 
                    "\[IndentingNewLine]", 
                    RowBox[{"Break", "[", "]"}]}]}], "\[IndentingNewLine]", 
                    "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], 
                    "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
                    
                    RowBox[{"If", "[", 
                    RowBox[{"needEta", ",", "\[IndentingNewLine]", 
                    RowBox[{"surgePtsGlobal", "=", 
                    RowBox[{"Insert", "[", 
                    RowBox[{"surgePtsGlobal", ",", "admissibleRegimesPt", ",", 
                    RowBox[{"-", "1"}]}], "]"}]}]}], "\[IndentingNewLine]", 
                    "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], 
                  "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
                 RowBox[{"If", "[", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"KChargeComputed", ">=", "KChargeMin"}], "&&", 
                    RowBox[{"KChargeComputed", "<=", "KChargeMax"}], "&&", 
                    RowBox[{"KUd", ">", "KUdMin"}], "&&", 
                    RowBox[{"NPower", "\[LessEqual]", "NAvailable"}]}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{
                    RowBox[{"lenArray", "=", 
                    RowBox[{"Length", "[", "segmentsArrEta", "]"}]}], ";", 
                    "\[IndentingNewLine]", 
                    RowBox[{"For", "[", 
                    RowBox[{
                    RowBox[{"l", "=", "1"}], ",", 
                    RowBox[{"l", "\[LessEqual]", "lenArray"}], ",", 
                    RowBox[{"l", "++"}], ",", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{"admissibleRegimesPt", "=", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"QprComputed", "*", "nTildeCurrent"}], ",", 
                    "epsilonComputed"}], "}"}]}], ";", "\[IndentingNewLine]", 
                    
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"Abs", "[", 
                    RowBox[{
                    RowBox[{"segmentsArrEta", "[", 
                    RowBox[{"[", "l", "]"}], "]"}], "-", "etaComputed"}], 
                    "]"}], "<", "eps"}], "&&", "available", "&&", 
                    RowBox[{"!", 
                    RowBox[{"MemberQ", "[", 
                    RowBox[{
                    RowBox[{"admissibleRegimesViaEtaPts", "[", 
                    RowBox[{"[", "l", "]"}], "]"}], ",", 
                    "admissibleRegimesPt"}], "]"}]}]}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{"needEta", "=", "True"}], ";", 
                    "\[IndentingNewLine]", 
                    RowBox[{"numPoints", "=", 
                    RowBox[{"Length", "[", 
                    RowBox[{"admissibleRegimesViaEtaPts", "[", 
                    RowBox[{"[", "l", "]"}], "]"}], "]"}]}], ";", 
                    "\[IndentingNewLine]", 
                    RowBox[{"(*", 
                    RowBox[{
                    "check", " ", "distance", " ", "value", " ", "between", 
                    " ", "new", " ", "point", " ", "and", " ", "another", " ",
                     "points", " ", "by", " ", "Qvolume"}], "*)"}], 
                    "\[IndentingNewLine]", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"numPoints", ">", "0"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{"For", "[", 
                    RowBox[{
                    RowBox[{"t", "=", "1"}], ",", 
                    RowBox[{"t", "\[LessEqual]", "numPoints"}], ",", 
                    RowBox[{"t", "++"}], ",", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"Abs", "[", 
                    RowBox[{
                    RowBox[{"QprComputed", "*", "nTildeCurrent"}], "-", 
                    RowBox[{"admissibleRegimesViaEtaPts", "[", 
                    RowBox[{"[", 
                    RowBox[{"l", ",", "t", ",", "1"}], "]"}], "]"}]}], "]"}], 
                    "<", "admissibleRegimesViaEtaDistance"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{"needEta", "=", "False"}], ";", 
                    "\[IndentingNewLine]", 
                    RowBox[{"Break", "[", "]"}]}]}], "\[IndentingNewLine]", 
                    "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], 
                    "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
                    
                    RowBox[{"(*", 
                    RowBox[{
                    RowBox[{
                    "if", " ", "the", " ", "distance", " ", "is", " ", 
                    "small", " ", "enough"}], ",", 
                    RowBox[{
                    "the", " ", "new", " ", "point", " ", "will", " ", "be", 
                    " ", "inserted", " ", "into", " ", "the", " ", "main", 
                    " ", "array"}]}], "*)"}], "\[IndentingNewLine]", 
                    RowBox[{"If", "[", 
                    RowBox[{"needEta", ",", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{"admissibleRegimesViaEtaPts", "[", 
                    RowBox[{"[", "l", "]"}], "]"}], "=", 
                    RowBox[{"Insert", "[", 
                    RowBox[{
                    RowBox[{"admissibleRegimesViaEtaPts", "[", 
                    RowBox[{"[", "l", "]"}], "]"}], ",", 
                    "admissibleRegimesPt", ",", 
                    RowBox[{"-", "1"}]}], "]"}]}]}], "\[IndentingNewLine]", 
                    "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], 
                    "\[IndentingNewLine]", "]"}], ";"}]}], 
                  "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
                 RowBox[{"nTildeCurrent", "=", 
                  RowBox[{"nTildeCurrent", "+", "deltaNTilde"}]}], ";"}]}], 
               "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
              RowBox[{"QprComputed", "=", 
               RowBox[{"QprComputed", "+", "deltaQpr"}]}], ";"}]}], 
            "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", 
         "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"Return", "[", 
         RowBox[{"{", 
          RowBox[{"Qvolume", ",", "ZIn"}], "}"}], "]"}], ";"}]}], 
      "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
      "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", 
     "**", "**", "**", "**", "**", "**", "**", "**", "**"}], "*****)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"checkOrderingByEpsilonSplineArrays", "[", "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "randArrIndex", ",", "randIndex", ",", "QvolumeRandomScaled", ",", 
         "filteredIndexes", ",", "n", ",", "m", ",", "lenArr", ",", 
         "epsilons", ",", "ordering"}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"While", "[", 
         RowBox[{"True", ",", "\[IndentingNewLine]", 
          RowBox[{"(*", 
           RowBox[{"get", " ", "random", " ", "array", " ", "index"}], "*)"}],
           "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"randArrIndex", "=", 
            RowBox[{"RandomInteger", "[", 
             RowBox[{"{", 
              RowBox[{"1", ",", "numSplinesEpsilon"}], "}"}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{
            "get", " ", "random", " ", "element", " ", "from", " ", "random", 
             " ", "array"}], "*)"}], "\[IndentingNewLine]", 
           RowBox[{"randIndex", "=", 
            RowBox[{"RandomInteger", "[", 
             RowBox[{"{", 
              RowBox[{"1", ",", 
               RowBox[{"Length", "[", 
                RowBox[{"filteredArrEpsilon", "[", 
                 RowBox[{"[", "randArrIndex", "]"}], "]"}], "]"}]}], "}"}], 
             "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{"get", " ", "random", " ", 
             RowBox[{"element", "'"}], "s", " ", "1", "st", " ", "argument"}],
             "*)"}], "\[IndentingNewLine]", 
           RowBox[{"QvolumeRandomScaled", "=", 
            RowBox[{"filteredArrEpsilon", "[", 
             RowBox[{"[", 
              RowBox[{"randArrIndex", ",", "randIndex", ",", "1"}], "]"}], 
             "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"filteredIndexes", "=", 
            RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{
            "select", " ", "epsilons", " ", "from", " ", "all", " ", "arrays",
              " ", "following", " ", "random", " ", "element", " ", "to", " ",
              "order", " ", "filtered", " ", "arrays", " ", "by", " ", 
             "them"}], "*)"}], "\[IndentingNewLine]", 
           RowBox[{"For", "[", 
            RowBox[{
             RowBox[{"n", "=", "1"}], ",", 
             RowBox[{"n", "<=", "numSplinesEpsilon"}], ",", 
             RowBox[{"n", "++"}], ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"lenArr", "=", 
               RowBox[{"Length", "[", 
                RowBox[{"filteredArrEpsilon", "[", 
                 RowBox[{"[", "n", "]"}], "]"}], "]"}]}], ";", 
              "\[IndentingNewLine]", 
              RowBox[{"For", "[", 
               RowBox[{
                RowBox[{"m", "=", "1"}], ",", 
                RowBox[{"m", "<=", "lenArr"}], ",", 
                RowBox[{"m", "++"}], ",", "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{"If", "[", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"Abs", "[", 
                    RowBox[{
                    RowBox[{"filteredArrEpsilon", "[", 
                    RowBox[{"[", 
                    RowBox[{"n", ",", "m", ",", "1"}], "]"}], "]"}], "-", 
                    "QvolumeRandomScaled"}], "]"}], "<", "deltaDistance"}], 
                   ",", "\[IndentingNewLine]", 
                   RowBox[{
                    RowBox[{"filteredIndexes", "=", 
                    RowBox[{"Insert", "[", 
                    RowBox[{"filteredIndexes", ",", "m", ",", 
                    RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
                    RowBox[{"Break", "[", "]"}]}]}], "\[IndentingNewLine]", 
                  "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], 
            "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"Length", "[", "filteredIndexes", "]"}], "==", 
              "numSplinesEpsilon"}], ",", 
             RowBox[{"Break", "[", "]"}]}], "]"}], ";"}]}], 
         "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"epsilons", "=", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"filteredArrEpsilon", "[", 
            RowBox[{"[", 
             RowBox[{"n", ",", 
              RowBox[{"filteredIndexes", "[", 
               RowBox[{"[", "n", "]"}], "]"}], ",", "2"}], "]"}], "]"}], ",", 
           
           RowBox[{"{", 
            RowBox[{"n", ",", "numSplinesEpsilon"}], "}"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"ordering", "=", 
         RowBox[{"Ordering", "[", "epsilons", "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"filteredArrEpsilon", "=", 
         RowBox[{"filteredArrEpsilon", "[", 
          RowBox[{"[", "ordering", "]"}], "]"}]}], ";"}]}], 
      "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
      "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", 
     "**", "**", "**", "**", "**", "**", "**", "**", "**"}], "*****)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"clusteringEpsilonArrs", "[", "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "sortedArr", ",", "lenArr", ",", "sortedScaledArr", ",", "n", ",", 
         "m", ",", "point", ",", "deletedIndexes"}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"filteredArrEpsilon", "=", 
         RowBox[{"Table", "[", 
          RowBox[{"0", ",", 
           RowBox[{"{", 
            RowBox[{"t", ",", "numSplinesEpsilon"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"l", ",", "0"}], "}"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"sortedArr", "=", 
         RowBox[{"Sort", "[", "admissibleRegimesPts", "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"lenArr", "=", 
         RowBox[{"Length", "[", "sortedArr", "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"sortedScaledArr", "=", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"sortedArr", "[", 
                RowBox[{"[", 
                 RowBox[{"m", ",", "1"}], "]"}], "]"}], "/", "100"}], "//", 
              "N"}], ",", 
             RowBox[{"sortedArr", "[", 
              RowBox[{"[", 
               RowBox[{"m", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"m", ",", "lenArr"}], "}"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"For", "[", 
         RowBox[{
          RowBox[{"n", "=", "1"}], ",", 
          RowBox[{"n", "<=", "numSplinesEpsilon"}], ",", 
          RowBox[{"n", "++"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"point", "=", 
            RowBox[{"sortedScaledArr", "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"deletedIndexes", "=", 
            RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"lenArr", "=", 
            RowBox[{"Length", "[", "sortedScaledArr", "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"For", "[", 
            RowBox[{
             RowBox[{"m", "=", "1"}], ",", 
             RowBox[{"m", "<=", "lenArr"}], ",", 
             RowBox[{"m", "++"}], ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"EuclideanDistance", "[", 
                  RowBox[{"point", ",", 
                   RowBox[{"sortedScaledArr", "[", 
                    RowBox[{"[", "m", "]"}], "]"}]}], "]"}], "<", 
                 "deltaDistance"}], ",", "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{
                  RowBox[{"filteredArrEpsilon", "[", 
                   RowBox[{"[", "n", "]"}], "]"}], "=", 
                  RowBox[{"Insert", "[", 
                   RowBox[{
                    RowBox[{"filteredArrEpsilon", "[", 
                    RowBox[{"[", "n", "]"}], "]"}], ",", 
                    RowBox[{"sortedScaledArr", "[", 
                    RowBox[{"[", "m", "]"}], "]"}], ",", 
                    RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
                 RowBox[{"point", "=", 
                  RowBox[{"sortedScaledArr", "[", 
                   RowBox[{"[", "m", "]"}], "]"}]}], ";", 
                 "\[IndentingNewLine]", 
                 RowBox[{"deletedIndexes", "=", 
                  RowBox[{"Insert", "[", 
                   RowBox[{"deletedIndexes", ",", 
                    RowBox[{"{", "m", "}"}], ",", 
                    RowBox[{"-", "1"}]}], "]"}]}], ";"}]}], 
               "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", 
            "]"}], ";", "\[IndentingNewLine]", 
           RowBox[{"sortedScaledArr", "=", 
            RowBox[{"Delete", "[", 
             RowBox[{"sortedScaledArr", ",", "deletedIndexes"}], "]"}]}], 
           ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], 
      "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
      "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", 
     "**", "**", "**", "**", "**", "**", "**", "**", "**"}], "*****)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"clusteringEtaArrs", "[", "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "t", ",", "m", ",", "count", ",", "sortedArr", ",", "lenArr", ",", 
         "sortedScaledArr", ",", "point", ",", "deletedPointsIndexes", ",", 
         "nextPointEpsilon", ",", "nextPointEta", ",", "numLayers", ",", 
         "filteredArrEtaLocal", ",", "filteredArrEtaFunc", ",", "k", ",", 
         "start"}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"filteredArrEta", "=", 
         RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"For", "[", 
         RowBox[{
          RowBox[{"t", "=", "1"}], ",", 
          RowBox[{"t", "<=", "numSplinesEta"}], ",", 
          RowBox[{"t", "++"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"sortedArr", "=", 
            RowBox[{"Sort", "[", 
             RowBox[{"admissibleRegimesViaEtaPts", "[", 
              RowBox[{"[", "t", "]"}], "]"}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"lenArr", "=", 
            RowBox[{"Length", "[", "sortedArr", "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"sortedScaledArr", "=", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{"sortedArr", "[", 
                   RowBox[{"[", 
                    RowBox[{"m", ",", "1"}], "]"}], "]"}], "/", "100"}], "//",
                  "N"}], ",", 
                RowBox[{"sortedArr", "[", 
                 RowBox[{"[", 
                  RowBox[{"m", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"m", ",", "lenArr"}], "}"}]}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"count", "=", "0"}], ";", "\[IndentingNewLine]", 
           RowBox[{"nextPointEta", "=", 
            RowBox[{"sortedScaledArr", "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"numLayers", "=", "1"}], ";", "\[IndentingNewLine]", 
           RowBox[{"While", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"Length", "[", "sortedScaledArr", "]"}], ">", "0"}], 
             ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"count", "++"}], ";", "\[IndentingNewLine]", 
              RowBox[{"point", "=", "nextPointEta"}], ";", 
              "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"filteredArrEtaFunc", "[", 
                RowBox[{"numLayers", ",", "count"}], "]"}], "=", "point"}], 
              ";", "\[IndentingNewLine]", 
              RowBox[{"lenArr", "=", 
               RowBox[{"Length", "[", "sortedScaledArr", "]"}]}], ";", 
              "\[IndentingNewLine]", 
              RowBox[{"deletedPointsIndexes", "=", 
               RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"numLayers", "==", "1"}], ",", "\[IndentingNewLine]", 
                
                RowBox[{
                 RowBox[{"deletedPointsIndexes", "=", 
                  RowBox[{"Insert", "[", 
                   RowBox[{"deletedPointsIndexes", ",", 
                    RowBox[{"{", "1", "}"}], ",", 
                    RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
                 RowBox[{"start", "=", "2"}]}], ",", 
                RowBox[{
                 RowBox[{"start", "=", "1"}], ";"}]}], "\[IndentingNewLine]", 
               "]"}], ";", "\[IndentingNewLine]", 
              RowBox[{"For", "[", 
               RowBox[{
                RowBox[{"m", "=", "start"}], ",", 
                RowBox[{"m", "<=", "lenArr"}], ",", 
                RowBox[{"m", "++"}], ",", "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{"If", "[", 
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{"EuclideanDistance", "[", 
                    RowBox[{"point", ",", 
                    RowBox[{"sortedScaledArr", "[", 
                    RowBox[{"[", "m", "]"}], "]"}]}], "]"}], "<", 
                    RowBox[{"4", "*", "deltaDistance"}]}], "&&", 
                    RowBox[{"!", 
                    RowBox[{"MemberQ", "[", 
                    RowBox[{"deletedPointsIndexes", ",", 
                    RowBox[{"{", "m", "}"}]}], "]"}]}]}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{"deletedPointsIndexes", "=", 
                    RowBox[{"Insert", "[", 
                    RowBox[{"deletedPointsIndexes", ",", 
                    RowBox[{"{", "m", "}"}], ",", 
                    RowBox[{"-", "1"}]}], "]"}]}]}], "\[IndentingNewLine]", 
                  "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", 
              "\[IndentingNewLine]", 
              RowBox[{"sortedScaledArr", "=", 
               RowBox[{"Delete", "[", 
                RowBox[{"sortedScaledArr", ",", "deletedPointsIndexes"}], 
                "]"}]}], ";", "\[IndentingNewLine]", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Length", "[", "sortedScaledArr", "]"}], "==", "0"}],
                 ",", 
                RowBox[{"Break", "[", "]"}]}], "]"}], ";", 
              "\[IndentingNewLine]", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"Divisible", "[", 
                 RowBox[{"count", ",", "numSplinesEpsilon"}], "]"}], ",", 
                "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{"count", "=", "0"}], ";", "\[IndentingNewLine]", 
                 RowBox[{"numLayers", "++"}], ";", "\[IndentingNewLine]", 
                 RowBox[{"nextPointEta", "=", 
                  RowBox[{"sortedScaledArr", "[", 
                   RowBox[{"[", "1", "]"}], "]"}]}]}], ",", 
                "\[IndentingNewLine]", 
                RowBox[{"(*", 
                 RowBox[{
                 "find", " ", "nearest", " ", "point", " ", "in", " ", 
                  "epsilon", " ", "curves", " ", "to", " ", "point"}], "*)"}],
                 "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{"nextPointEpsilon", "=", 
                  RowBox[{
                   RowBox[{"Nearest", "[", 
                    RowBox[{
                    RowBox[{"filteredArrEpsilon", "[", 
                    RowBox[{"[", 
                    RowBox[{"count", "+", "1"}], "]"}], "]"}], ",", "point", 
                    ",", "1"}], "]"}], "[", 
                   RowBox[{"[", "1", "]"}], "]"}]}], ";", 
                 "\[IndentingNewLine]", 
                 RowBox[{"(*", 
                  RowBox[{
                  "find", " ", "nearest", " ", "nextPointEpsilon", " ", "to", 
                   " ", "eta", " ", "points"}], "*)"}], "\[IndentingNewLine]", 
                 RowBox[{"nextPointEta", "=", 
                  RowBox[{
                   RowBox[{"Nearest", "[", 
                    RowBox[{
                    "sortedScaledArr", ",", "nextPointEpsilon", ",", "1"}], 
                    "]"}], "[", 
                   RowBox[{"[", "1", "]"}], "]"}]}], ";", 
                 "\[IndentingNewLine]", 
                 RowBox[{"(*", 
                  RowBox[{
                  "to", " ", "avoid", " ", "jump", " ", "to", " ", "another", 
                   " ", "epsilon", " ", "layer"}], "*)"}], 
                 "\[IndentingNewLine]", 
                 RowBox[{"If", "[", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"Abs", "[", 
                    RowBox[{
                    RowBox[{"point", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "-", 
                    RowBox[{"nextPointEta", "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ">", "0.1"}], 
                   ",", "\[IndentingNewLine]", 
                   RowBox[{"nextPointEta", "=", "point"}]}], "]"}], ";"}]}], 
               "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", 
            "]"}], ";", "\[IndentingNewLine]", 
           RowBox[{"filteredArrEtaLocal", "=", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"0", ",", "0"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"t", ",", "numLayers"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"m", ",", "numSplinesEpsilon"}], "}"}]}], "]"}]}], ";",
            "\[IndentingNewLine]", 
           RowBox[{"For", "[", 
            RowBox[{
             RowBox[{"k", "=", "1"}], ",", 
             RowBox[{"k", "<=", "numLayers"}], ",", 
             RowBox[{"k", "++"}], ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"For", "[", 
               RowBox[{
                RowBox[{"m", "=", "1"}], ",", 
                RowBox[{"m", "<=", "numSplinesEpsilon"}], ",", 
                RowBox[{"m", "++"}], ",", "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{
                  RowBox[{"filteredArrEtaLocal", "[", 
                   RowBox[{"[", 
                    RowBox[{"k", ",", "m"}], "]"}], "]"}], "=", 
                  RowBox[{"filteredArrEtaFunc", "[", 
                   RowBox[{"k", ",", "m"}], "]"}]}], ";"}]}], 
               "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", 
            "]"}], ";", "\[IndentingNewLine]", 
           RowBox[{"filteredArrEta", "=", 
            RowBox[{"Insert", "[", 
             RowBox[{"filteredArrEta", ",", "filteredArrEtaLocal", ",", 
              RowBox[{"-", "1"}]}], "]"}]}], ";"}]}], "\[IndentingNewLine]", 
         "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
      "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", 
     "**", "**", "**", "**", "**", "**", "**", "**", "**"}], "*****)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"constructBoundaryRangeAdmissibleRegimes", "[", "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"listPlotBoundary", ",", "lenSegments", ",", "s", ",", 
         RowBox[{"boundaryLeftPoints", "=", 
          RowBox[{"{", "}"}]}], ",", 
         RowBox[{"boundaryRightPoints", "=", 
          RowBox[{"{", "}"}]}], ",", 
         RowBox[{"boundaryUpperPoints", "=", 
          RowBox[{"{", "}"}]}], ",", 
         RowBox[{"boundaryLowerPoints", "=", 
          RowBox[{"{", "}"}]}], ",", "lenArr"}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"lenSegments", "=", 
         RowBox[{"Length", "[", "segmentsArrNtildePr", "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"For", "[", 
         RowBox[{
          RowBox[{"s", "=", "1"}], ",", 
          RowBox[{"s", "<=", 
           RowBox[{"lenSegments", "-", "1"}]}], ",", 
          RowBox[{"s", "++"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"boundaryLeftPoints", "=", 
            RowBox[{"Insert", "[", 
             RowBox[{"boundaryLeftPoints", ",", 
              RowBox[{"filteredArrEpsilon", "[", 
               RowBox[{"[", 
                RowBox[{"s", ",", "1"}], "]"}], "]"}], ",", 
              RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"boundaryRightPoints", "=", 
            RowBox[{"Insert", "[", 
             RowBox[{"boundaryRightPoints", ",", 
              RowBox[{"filteredArrEpsilon", "[", 
               RowBox[{"[", 
                RowBox[{"s", ",", 
                 RowBox[{"Length", "[", 
                  RowBox[{"filteredArrEpsilon", "[", 
                   RowBox[{"[", "s", "]"}], "]"}], "]"}]}], "]"}], "]"}], ",", 
              RowBox[{"-", "1"}]}], "]"}]}], ";"}]}], "\[IndentingNewLine]", 
         "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"boundaryUpperPoints", "=", 
         RowBox[{"filteredArrEpsilon", "[", 
          RowBox[{"[", 
           RowBox[{"lenSegments", "-", "1"}], "]"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"lenArr", "=", 
         RowBox[{"Length", "[", 
          RowBox[{"filteredArrEpsilon", "[", 
           RowBox[{"[", 
            RowBox[{"lenSegments", "-", "1"}], "]"}], "]"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"For", "[", 
         RowBox[{
          RowBox[{"s", "=", "1"}], ",", 
          RowBox[{"s", "<=", "lenArr"}], ",", 
          RowBox[{"s", "++"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
            RowBox[{"boundaryUpperPoints", "[", 
             RowBox[{"[", 
              RowBox[{"s", ",", "2"}], "]"}], "]"}], "=", 
            RowBox[{"boundaryUpperPoints", "[", 
             RowBox[{"[", 
              RowBox[{"s", ",", "2"}], "]"}], "]"}]}], ";"}]}], 
         "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"lenArr", "=", 
         RowBox[{"Length", "[", 
          RowBox[{"filteredArrEpsilon", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"boundaryLowerPoints", "=", 
         RowBox[{"filteredArrEpsilon", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"For", "[", 
         RowBox[{
          RowBox[{"s", "=", "1"}], ",", 
          RowBox[{"s", "<=", "lenArr"}], ",", 
          RowBox[{"s", "++"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
            RowBox[{"boundaryLowerPoints", "[", 
             RowBox[{"[", 
              RowBox[{"s", ",", "2"}], "]"}], "]"}], "=", 
            RowBox[{"boundaryLowerPoints", "[", 
             RowBox[{"[", 
              RowBox[{"s", ",", "2"}], "]"}], "]"}]}], ";"}]}], 
         "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"boundaryLeftPtsGlobal", "=", "boundaryLeftPoints"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"boundaryUpperPtsGlobal", "=", "boundaryUpperPoints"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"boundaryRightPtsGlobal", "=", "boundaryRightPoints"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"boundaryLowerPtsGlobal", "=", "boundaryLowerPoints"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{
           RowBox[{"spline", " ", "boundary", "\[IndentingNewLine]", "1"}], 
           " ", "-", " ", "left"}], ",", " ", 
          RowBox[{"2", " ", "-", " ", "right"}], ",", " ", 
          RowBox[{"3", " ", "-", " ", "top"}], ",", " ", 
          RowBox[{"4", " ", "-", " ", "bottom"}]}], "\[IndentingNewLine]", 
         "*)"}], "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{"clear", " ", "global", " ", "array"}], "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"splineBoundary", "=", 
         RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"splineBoundary", "=", 
         RowBox[{"Insert", "[", 
          RowBox[{"splineBoundary", ",", 
           RowBox[{"BSplineFunction", "[", 
            RowBox[{"inverseScaled", "[", "boundaryLeftPoints", "]"}], "]"}], 
           ",", 
           RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"splineBoundary", "=", 
         RowBox[{"Insert", "[", 
          RowBox[{"splineBoundary", ",", 
           RowBox[{"BSplineFunction", "[", 
            RowBox[{"inverseScaled", "[", "boundaryRightPoints", "]"}], "]"}],
            ",", 
           RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"splineBoundary", "=", 
         RowBox[{"Insert", "[", 
          RowBox[{"splineBoundary", ",", 
           RowBox[{"BSplineFunction", "[", 
            RowBox[{"inverseScaled", "[", "boundaryUpperPoints", "]"}], "]"}],
            ",", 
           RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"splineBoundary", "=", 
         RowBox[{"Insert", "[", 
          RowBox[{"splineBoundary", ",", 
           RowBox[{"BSplineFunction", "[", 
            RowBox[{"inverseScaled", "[", "boundaryLowerPoints", "]"}], "]"}],
            ",", 
           RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"listPlotBoundary", "=", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"ParametricPlot", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"splineBoundary", "[", 
               RowBox[{"[", "s", "]"}], "]"}], "[", "t", "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"t", ",", "0", ",", "1"}], "}"}], ",", 
             RowBox[{"PlotStyle", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{"Black", ",", "Dashed"}], "}"}]}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"s", ",", 
             RowBox[{"Length", "[", "splineBoundary", "]"}]}], "}"}]}], 
          "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"Return", "[", "listPlotBoundary", "]"}]}]}], 
      "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
      "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", 
     "**", "**", "**", "**", "**", "**", "**", "**", "**"}], "*****)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"constructEpsilonRangeAdmissibleRegimes", "[", "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"splineEpsilon", "=", 
          RowBox[{"{", "}"}]}], ",", "listPlotEpsilons", ",", "lenSegments", 
         ",", "s", ",", 
         RowBox[{"plotColours", "=", 
          RowBox[{"{", 
           RowBox[{
           "Magenta", ",", "Brown", ",", "Orange", ",", "Pink", ",", "Green", 
            ",", "Yellow", ",", "Blue"}], "}"}]}]}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"lenSegments", "=", 
         RowBox[{"Length", "[", "segmentsArrNtildePr", "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"For", "[", 
         RowBox[{
          RowBox[{"s", "=", "1"}], ",", 
          RowBox[{"s", "<=", 
           RowBox[{"lenSegments", "-", "1"}]}], ",", 
          RowBox[{"s", "++"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"Length", "[", 
               RowBox[{"filteredArrEpsilon", "[", 
                RowBox[{"[", "s", "]"}], "]"}], "]"}], "==", "0"}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"splineEpsilon", "=", 
              RowBox[{"Insert", "[", 
               RowBox[{"splineEpsilon", ",", 
                RowBox[{"BSplineFunction", "[", 
                 RowBox[{"{", 
                  RowBox[{"0", ",", "0"}], "}"}], "]"}], ",", 
                RowBox[{"-", "1"}]}], "]"}]}], ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"splineEpsilon", "=", 
               RowBox[{"Insert", "[", 
                RowBox[{"splineEpsilon", ",", 
                 RowBox[{"BSplineFunction", "[", 
                  RowBox[{"inverseScaled", "[", 
                   RowBox[{"filteredArrEpsilon", "[", 
                    RowBox[{"[", "s", "]"}], "]"}], "]"}], "]"}], ",", 
                 RowBox[{"-", "1"}]}], "]"}]}], ";"}]}], 
            "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", 
         "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"listPlotEpsilons", "=", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"ParametricPlot", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"splineEpsilon", "[", 
               RowBox[{"[", "s", "]"}], "]"}], "[", "t", "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"t", ",", "0", ",", "1"}], "}"}], ",", 
             RowBox[{"PlotStyle", "\[Rule]", 
              RowBox[{"plotColours", "[", 
               RowBox[{"[", "s", "]"}], "]"}]}], ",", 
             RowBox[{"PlotLabels", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{
               "\"\<[n/\!\(\*SubscriptBox[\(n\), \
\(nom\)]\)\!\(\*SubscriptBox[\(]\), \(red\)]\)=\>\"", "<>", 
                RowBox[{"ToString", "[", 
                 RowBox[{"segmentsArrNtildePr", "[", 
                  RowBox[{"[", 
                   RowBox[{"s", "+", "1"}], "]"}], "]"}], "]"}]}], "}"}]}], 
             ",", 
             RowBox[{"Frame", "->", 
              RowBox[{"{", 
               RowBox[{"True", ",", "True", ",", "False", ",", "False"}], 
               "}"}]}], ",", 
             RowBox[{"PlotStyle", "->", 
              RowBox[{"{", 
               RowBox[{"Thickness", "[", "0.01", "]"}], "}"}]}], ",", 
             RowBox[{"FrameLabel", "->", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"Style", "[", 
                 RowBox[{
                 "\"\<\!\(\*SubscriptBox[\(Q\), \(red\)]\)\>\"", ",", "16", 
                  ",", "Bold"}], "]"}], ",", 
                RowBox[{"Style", "[", 
                 RowBox[{"\"\<\[Epsilon]\>\"", ",", "16", ",", "Bold"}], 
                 "]"}]}], "}"}]}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"s", ",", 
             RowBox[{
              RowBox[{"Length", "[", "segmentsArrNtildePr", "]"}], "-", 
              "1"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"Return", "[", "listPlotEpsilons", "]"}]}]}], 
      "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
      "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", 
     "**", "**", "**", "**", "**", "**", "**", "**", "**"}], "*****)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"constructEtaRangeAdmissibleRegimes", "[", "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"listPlotEtas", "=", 
          RowBox[{"{", "}"}]}], ",", "count", ",", "l", ",", "s", ",", 
         "lenSegments", ",", 
         RowBox[{"splineEta", "=", 
          RowBox[{"{", "}"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"count", "=", "0"}], ";", "\[IndentingNewLine]", 
        RowBox[{"lenSegments", "=", 
         RowBox[{"Length", "[", "segmentsArrEta", "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"For", "[", 
         RowBox[{
          RowBox[{"s", "=", "1"}], ",", 
          RowBox[{"s", "<=", "lenSegments"}], ",", 
          RowBox[{"s", "++"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"count", "++"}], ";", "\[IndentingNewLine]", 
           RowBox[{"splineEta", "=", 
            RowBox[{"Insert", "[", 
             RowBox[{"splineEta", ",", 
              RowBox[{"BSplineFunction", "[", 
               RowBox[{"inverseScaled", "[", 
                RowBox[{"filteredArrEta", "[", 
                 RowBox[{"[", 
                  RowBox[{"s", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", 
              RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"listPlotEtas", "=", 
            RowBox[{"Insert", "[", 
             RowBox[{"listPlotEtas", ",", 
              RowBox[{"ParametricPlot", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"splineEta", "[", 
                  RowBox[{"[", "count", "]"}], "]"}], "[", "t", "]"}], ",", 
                RowBox[{"{", 
                 RowBox[{"t", ",", "0", ",", "1"}], "}"}], ",", 
                RowBox[{"PlotStyle", "\[Rule]", "LightGray"}], ",", 
                RowBox[{"PlotLabels", "\[Rule]", 
                 RowBox[{"{", 
                  RowBox[{"\"\<\[Eta]=\>\"", "<>", 
                   RowBox[{"ToString", "[", 
                    RowBox[{"segmentsArrEta", "[", 
                    RowBox[{"[", "s", "]"}], "]"}], "]"}]}], "}"}]}]}], "]"}],
               ",", 
              RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"count", "++"}], ";", "\[IndentingNewLine]", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"Length", "[", 
               RowBox[{"filteredArrEta", "[", 
                RowBox[{"[", "s", "]"}], "]"}], "]"}], "<=", "1"}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"splineEta", "=", 
               RowBox[{"Insert", "[", 
                RowBox[{"splineEta", ",", 
                 RowBox[{"BSplineFunction", "[", 
                  RowBox[{"{", 
                   RowBox[{"0", ",", "0"}], "}"}], "]"}], ",", 
                 RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
              RowBox[{"listPlotEtas", "=", 
               RowBox[{"Insert", "[", 
                RowBox[{"listPlotEtas", ",", 
                 RowBox[{"ParametricPlot", "[", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"splineEta", "[", 
                    RowBox[{"[", "count", "]"}], "]"}], "[", "t", "]"}], ",", 
                   
                   RowBox[{"{", 
                    RowBox[{"t", ",", "0", ",", "1"}], "}"}], ",", 
                   RowBox[{"PlotStyle", "\[Rule]", "White"}]}], "]"}], ",", 
                 RowBox[{"-", "1"}]}], "]"}]}]}], ",", "\[IndentingNewLine]", 
             
             RowBox[{
              RowBox[{"splineEta", "=", 
               RowBox[{"Insert", "[", 
                RowBox[{"splineEta", ",", 
                 RowBox[{"BSplineFunction", "[", 
                  RowBox[{"inverseScaled", "[", 
                   RowBox[{"filteredArrEta", "[", 
                    RowBox[{"[", 
                    RowBox[{"s", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", 
                 
                 RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
              RowBox[{"listPlotEtas", "=", 
               RowBox[{"Insert", "[", 
                RowBox[{"listPlotEtas", ",", 
                 RowBox[{"ParametricPlot", "[", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"splineEta", "[", 
                    RowBox[{"[", "count", "]"}], "]"}], "[", "t", "]"}], ",", 
                   
                   RowBox[{"{", 
                    RowBox[{"t", ",", "0", ",", "1"}], "}"}], ",", 
                   RowBox[{"PlotStyle", "\[Rule]", "LightGray"}], ",", 
                   RowBox[{"PlotLabels", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"\"\<\[Eta]=\>\"", "<>", 
                    RowBox[{"ToString", "[", 
                    RowBox[{"segmentsArrEta", "[", 
                    RowBox[{"[", 
                    RowBox[{"IntegerPart", "[", 
                    RowBox[{"count", "/", "2"}], "]"}], "]"}], "]"}], "]"}]}],
                     "}"}]}], ",", 
                   RowBox[{"Frame", "->", 
                    RowBox[{"{", 
                    RowBox[{"True", ",", "True", ",", "False", ",", "False"}],
                     "}"}]}], ",", 
                   RowBox[{"FrameLabel", "->", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Style", "[", 
                    RowBox[{
                    "\"\<\!\(\*SubscriptBox[\(Q\), \(red\)]\)\>\"", ",", "16",
                     ",", "Bold"}], "]"}], ",", 
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<\[Epsilon]\>\"", ",", "16", ",", "Bold"}], 
                    "]"}]}], "}"}]}], ",", 
                   RowBox[{"PlotStyle", "->", 
                    RowBox[{"{", "Thick", "}"}]}]}], "]"}], ",", 
                 RowBox[{"-", "1"}]}], "]"}]}], ";"}]}], 
            "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", 
         "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"Return", "[", "listPlotEtas", "]"}], ";"}]}], 
      "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
      "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", 
     "**", "**", "**", "**", "**", "**", "**", "**", "**"}], "*****)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"plotFullAdmissibleRegimesZone", "[", 
      RowBox[{"time_", ",", "gpaID_", ",", "Qvolume_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "listPlotEpsilons", ",", "listPlotEtas", ",", "listPlotBoundary", ",",
          "listPlotSurge"}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"listPlotBoundary", "=", 
         RowBox[{"constructBoundaryRangeAdmissibleRegimes", "[", "]"}]}], ";",
         "\[IndentingNewLine]", 
        RowBox[{"listPlotEpsilons", "=", 
         RowBox[{"constructEpsilonRangeAdmissibleRegimes", "[", "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"listPlotEtas", "=", 
         RowBox[{"constructEtaRangeAdmissibleRegimes", "[", "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"listPlotSurge", "=", 
         RowBox[{"constructSurgeZone", "[", "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Show", "[", 
          RowBox[{
          "listPlotEpsilons", ",", "listPlotEtas", ",", "listPlotBoundary", 
           ",", "listPlotSurge", ",", 
           RowBox[{"Plot", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"outPressures", "[", 
               RowBox[{"[", 
                RowBox[{"time", ",", "gpaID"}], "]"}], "]"}], "/", 
              RowBox[{"inPressures", "[", 
               RowBox[{"[", 
                RowBox[{"time", ",", "gpaID"}], "]"}], "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"x", ",", "120", ",", "300"}], "}"}], ",", 
             RowBox[{"PlotStyle", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{"Dashed", ",", "LightGray"}], "}"}]}]}], "]"}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"Graphics", "[", 
            RowBox[{"{", 
             RowBox[{"Dashed", ",", "LightGray", ",", 
              RowBox[{"Line", "[", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"Qvolume", ",", "1.05"}], "}"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"Qvolume", ",", "1.2"}], "}"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"Qvolume", ",", "1.3"}], "}"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"Qvolume", ",", "1.35"}], "}"}]}], "}"}], "]"}]}], 
             "}"}], "]"}], ",", 
           RowBox[{"Graphics", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"PointSize", "[", "Large", "]"}], ",", "Pink", ",", 
              RowBox[{"Point", "[", 
               RowBox[{"{", 
                RowBox[{"Qvolume", ",", 
                 RowBox[{
                  RowBox[{"outPressures", "[", 
                   RowBox[{"[", 
                    RowBox[{"time", ",", "gpaID"}], "]"}], "]"}], "/", 
                  RowBox[{"inPressures", "[", 
                   RowBox[{"[", 
                    RowBox[{"time", ",", "gpaID"}], "]"}], "]"}]}]}], "}"}], 
               "]"}]}], "}"}], "]"}], ",", 
           RowBox[{"PlotRange", "->", "Full"}]}], "]"}], "//", "Print"}]}]}], 
      "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
      "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", 
     "**", "**", "**", "**", "**", "**", "**", "**", "**"}], "*****)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"constructSurgeZone", "[", "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"surgePoints", "=", 
          RowBox[{"{", "}"}]}], ",", "firstPoint", ",", "lastPoint", ",", "m",
          ",", "lenArr", ",", "listPlotSurge", ",", "surgeZonePtsInner", ",", 
         "surgeLinePlotBottom", ",", "surgeLinePlotTop", ",", "surgeSpline"}],
         "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"firstPoint", "=", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"filteredArrEpsilon", "[", 
             RowBox[{"[", 
              RowBox[{"1", ",", "1", ",", "1"}], "]"}], "]"}], "*", "100"}], 
           ",", 
           RowBox[{"filteredArrEpsilon", "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], "}"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"lastPoint", "=", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"filteredArrEpsilon", "[", 
             RowBox[{"[", 
              RowBox[{"numSplinesEpsilon", ",", "1", ",", "1"}], "]"}], "]"}],
             "*", "100"}], ",", 
           RowBox[{"filteredArrEpsilon", "[", 
            RowBox[{"[", 
             RowBox[{"numSplinesEpsilon", ",", "1", ",", "2"}], "]"}], 
            "]"}]}], "}"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"surgePoints", "=", 
         RowBox[{"Insert", "[", 
          RowBox[{"surgePoints", ",", "firstPoint", ",", 
           RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"firstPoint", "=", 
         RowBox[{"surgePtsGlobal", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"surgePoints", "=", 
         RowBox[{"Insert", "[", 
          RowBox[{"surgePoints", ",", "firstPoint", ",", 
           RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"lenArr", "=", 
         RowBox[{"Length", "[", "surgePtsGlobal", "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"For", "[", 
         RowBox[{
          RowBox[{"m", "=", "2"}], ",", 
          RowBox[{"m", "\[LessEqual]", "lenArr"}], ",", 
          RowBox[{"m", "++"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"firstPoint", "[", 
               RowBox[{"[", "2", "]"}], "]"}], "<", 
              RowBox[{"surgePtsGlobal", "[", 
               RowBox[{"[", 
                RowBox[{"m", ",", "2"}], "]"}], "]"}]}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"surgePoints", "=", 
               RowBox[{"Insert", "[", 
                RowBox[{"surgePoints", ",", 
                 RowBox[{"surgePtsGlobal", "[", 
                  RowBox[{"[", "m", "]"}], "]"}], ",", 
                 RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
              RowBox[{"firstPoint", "=", 
               RowBox[{"surgePtsGlobal", "[", 
                RowBox[{"[", "m", "]"}], "]"}]}], ";"}]}], 
            "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", 
         "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"surgePoints", "=", 
         RowBox[{"Insert", "[", 
          RowBox[{"surgePoints", ",", "lastPoint", ",", 
           RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"surgeZonePtsInner", "=", 
         RowBox[{"Delete", "[", 
          RowBox[{"surgePoints", ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", "1", "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"Length", "[", "surgePoints", "]"}], "}"}]}], "}"}]}], 
          "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"surgePtsGlobal", "=", 
         RowBox[{"Join", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"surgePoints", "[", 
              RowBox[{"[", "1", "]"}], "]"}], ",", 
             RowBox[{"surgePoints", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"filterPointsByDistance", "[", 
            RowBox[{"surgeZonePtsInner", ",", "2"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"surgePoints", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"Length", "[", "surgePoints", "]"}], "-", "1"}], 
               "]"}], "]"}], ",", 
             RowBox[{"surgePoints", "[", 
              RowBox[{"[", 
               RowBox[{"Length", "[", "surgePoints", "]"}], "]"}], "]"}]}], 
            "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"surgeLinePlotBottom", "=", 
         RowBox[{"ListLinePlot", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"surgePoints", "[", 
              RowBox[{"[", "1", "]"}], "]"}], ",", 
             RowBox[{"surgePoints", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"PlotStyle", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"Red", ",", "Dashed"}], "}"}]}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"surgeLinePlotTop", "=", 
         RowBox[{"ListLinePlot", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"surgePoints", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"Length", "[", "surgePoints", "]"}], "-", "1"}], 
               "]"}], "]"}], ",", 
             RowBox[{"surgePoints", "[", 
              RowBox[{"[", 
               RowBox[{"Length", "[", "surgePoints", "]"}], "]"}], "]"}]}], 
            "}"}], ",", 
           RowBox[{"PlotStyle", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"Red", ",", "Dashed"}], "}"}]}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"surgeSpline", "=", 
         RowBox[{"ParametricPlot", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"BSplineFunction", "[", "surgeZonePtsInner", "]"}], "[", 
            "t", "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"t", ",", "0", ",", "1"}], "}"}], ",", 
           RowBox[{"PlotStyle", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"Red", ",", "Dashed"}], "}"}]}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"listPlotSurge", "=", 
         RowBox[{"{", 
          RowBox[{
          "surgeLinePlotBottom", ",", "surgeLinePlotTop", ",", 
           "surgeSpline"}], "}"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"Return", "[", "listPlotSurge", "]"}]}]}], 
      "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
      "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", 
     "**", "**", "**", "**", "**", "**", "**", "**", "**"}], "*****)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"totalGPACalculation", "[", 
      RowBox[{"day_", ",", "time_", ",", "gpaID_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"Qvolume", ",", "ZIn", ",", "nearestPoint", ",", 
         RowBox[{"lenArr", "=", 
          RowBox[{"Length", "[", "filteredArrEpsilon", "]"}]}], ",", "s", ",",
          "selectedPoints", ",", "nComputed", ",", "etaComputed", ",", 
         RowBox[{"nearestPoints", "=", 
          RowBox[{"{", "}"}]}], ",", "distanceTotal", ",", "distanceFirst", 
         ",", "distanceSecond", ",", "selectedEpsilonFirst", ",", 
         "selectedEpsilonSecond", ",", "selectedEpsilonValue", ",", 
         "QprComputed", ",", "NprComputed", ",", "NiComputed", ",", "rho", 
         ",", "KA", ",", "QFuelGasComputed", ",", "NNom", ",", "TAir", ",", 
         "pAir", ",", "QFuelGasNom", ",", "hs", ",", "KFG", ",", "NComputed", 
         ",", "etaMech", ",", "KN", ",", "pointScaled", ",", "TOutComputed", 
         ",", "KChargeComputed", ",", "NAvailable", ",", "KRev", ",", "KT", 
         ",", "KU", ",", "QprMin", ",", "QprMax", ",", "KChargeMin", ",", 
         "KChargeMax", ",", "nNom", ",", "QprNomMin", ",", "QprNomMax", ",", 
         "etaMin", ",", "rhon", ",", "KUd"}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{"Qvolume", ",", "ZIn"}], "}"}], "=", 
         RowBox[{"constructRangeOfAdmissibleRegimes", "[", 
          RowBox[{"gpaID", ",", "time", ",", 
           RowBox[{"0.1", "*", "deltaDistance"}], ",", 
           RowBox[{"0.1", "*", "deltaDistance"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"pointScaled", "=", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"Qvolume", "/", "100"}], "//", "N"}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{"outPressures", "[", 
              RowBox[{"[", 
               RowBox[{"time", ",", "gpaID"}], "]"}], "]"}], "/", 
             RowBox[{"inPressures", "[", 
              RowBox[{"[", 
               RowBox[{"time", ",", "gpaID"}], "]"}], "]"}]}], "//", "N"}]}], 
          "}"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"clusteringEpsilonArrs", "[", "]"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"checkOrderingByEpsilonSplineArrays", "[", "]"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"clusteringEtaArrs", "[", "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"plotFullAdmissibleRegimesZone", "[", 
         RowBox[{"time", ",", "gpaID", ",", "Qvolume"}], "]"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"checkPointInAdmissibleRegimesRange", "[", 
           RowBox[{"Qvolume", ",", "time", ",", "gpaID"}], "]"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"lenArr", "=", 
            RowBox[{"Length", "[", "filteredArrEpsilon", "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{
            "find", " ", "nearest", " ", "point", " ", "in", " ", "epsilon", 
             " ", "curves", " ", "to", " ", "point"}], "*)"}], 
           "\[IndentingNewLine]", 
           RowBox[{"For", "[", 
            RowBox[{
             RowBox[{"s", "=", "1"}], ",", 
             RowBox[{"s", "<=", "lenArr"}], ",", 
             RowBox[{"s", "++"}], ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"nearestPoint", "=", 
               RowBox[{
                RowBox[{"Nearest", "[", 
                 RowBox[{
                  RowBox[{"filteredArrEpsilon", "[", 
                   RowBox[{"[", "s", "]"}], "]"}], ",", "pointScaled"}], 
                 "]"}], "[", 
                RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
              
              RowBox[{"nearestPoints", "=", 
               RowBox[{"Insert", "[", 
                RowBox[{"nearestPoints", ",", "nearestPoint", ",", 
                 RowBox[{"-", "1"}]}], "]"}]}], ";"}]}], 
            "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
           RowBox[{"selectedPoints", "=", 
            RowBox[{"Nearest", "[", 
             RowBox[{"nearestPoints", ",", "pointScaled", ",", "2"}], "]"}]}],
            ";", "\[IndentingNewLine]", 
           RowBox[{"distanceFirst", "=", 
            RowBox[{"EuclideanDistance", "[", 
             RowBox[{
              RowBox[{"selectedPoints", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", "pointScaled"}], "]"}]}], 
           ";", "\[IndentingNewLine]", 
           RowBox[{"distanceSecond", "=", 
            RowBox[{"EuclideanDistance", "[", 
             RowBox[{
              RowBox[{"selectedPoints", "[", 
               RowBox[{"[", "2", "]"}], "]"}], ",", "pointScaled"}], "]"}]}], 
           ";", "\[IndentingNewLine]", 
           RowBox[{"distanceTotal", "=", 
            RowBox[{"distanceFirst", "+", "distanceSecond"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"selectedEpsilonFirst", "=", 
            RowBox[{
             RowBox[{"Position", "[", 
              RowBox[{"nearestPoints", ",", 
               RowBox[{"selectedPoints", "[", 
                RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"selectedEpsilonSecond", "=", 
            RowBox[{
             RowBox[{"Position", "[", 
              RowBox[{"nearestPoints", ",", 
               RowBox[{"selectedPoints", "[", 
                RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"selectedEpsilonValue", "=", 
            RowBox[{
             RowBox[{
              RowBox[{"distanceSecond", "/", "distanceTotal"}], "*", 
              RowBox[{"segmentsArrNtildePr", "[", 
               RowBox[{"[", 
                RowBox[{"selectedEpsilonFirst", "+", "1"}], "]"}], "]"}]}], 
             "+", 
             RowBox[{
              RowBox[{"distanceFirst", "/", "distanceTotal"}], "*", 
              RowBox[{"segmentsArrNtildePr", "[", 
               RowBox[{"[", 
                RowBox[{"selectedEpsilonSecond", "+", "1"}], "]"}], 
               "]"}]}]}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"nComputed", "=", 
            RowBox[{
             RowBox[{"selectedEpsilonValue", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "*", 
             RowBox[{"Sqrt", "[", 
              RowBox[{"ZIn", "*", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"inTemperatures", "[", 
                  RowBox[{"[", 
                   RowBox[{"time", ",", "gpaID"}], "]"}], "]"}], "+", 
                 "273.15"}], ")"}], "*", 
               RowBox[{
                RowBox[{"calculateRspecific", "[", 
                 RowBox[{"mMolars", "[", 
                  RowBox[{"[", 
                   RowBox[{"time", ",", "gpaID"}], "]"}], "]"}], "]"}], "/", 
                RowBox[{"(", 
                 RowBox[{"TStartpr", "*", "Rpr", "*", "Zpr"}], ")"}]}]}], 
              "]"}], "*", 
             RowBox[{"nMax", "[", 
              RowBox[{"[", "gpaID", "]"}], "]"}]}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"QprComputed", "=", 
            RowBox[{"calculateQpr", "[", 
             RowBox[{"Qvolume", ",", "nComputed", ",", 
              RowBox[{"nMax", "[", 
               RowBox[{"[", "gpaID", "]"}], "]"}]}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"etaComputed", "=", 
            RowBox[{
             RowBox[{"fEta", "[", 
              RowBox[{"normalizeQpr", "[", "QprComputed", "]"}], "]"}], "[", 
             RowBox[{"[", "2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"NprComputed", "=", 
            RowBox[{
             RowBox[{"fNpr", "[", 
              RowBox[{"normalizeQpr", "[", "QprComputed", "]"}], "]"}], "[", 
             RowBox[{"[", "2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"rho", "=", 
            RowBox[{
             RowBox[{
              RowBox[{"rhons", "[", 
               RowBox[{"[", 
                RowBox[{"time", ",", "gpaID"}], "]"}], "]"}], "*", 
              RowBox[{
               RowBox[{
                RowBox[{"Qs", "[", 
                 RowBox[{"[", 
                  RowBox[{"time", ",", "gpaID"}], "]"}], "]"}], "/", 
                "Qvolume"}], "/", "60"}]}], "//", "N"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"NiComputed", "=", 
            RowBox[{"calculatePowerInner", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"nComputed", "/", 
                RowBox[{"nMax", "[", 
                 RowBox[{"[", "gpaID", "]"}], "]"}]}], "//", "N"}], ",", 
              "rho", ",", "NprComputed"}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{"static", " ", "data"}], "*)"}], "\[IndentingNewLine]", 
           RowBox[{"QprNomMin", "=", 
            RowBox[{"QprsNomMin", "[", 
             RowBox[{"[", "gpaID", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"QprNomMax", "=", 
            RowBox[{"QprsNomMax", "[", 
             RowBox[{"[", "gpaID", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"etaMin", "=", 
            RowBox[{"minEtas", "[", 
             RowBox[{"[", "gpaID", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"NNom", "=", 
            RowBox[{"powersDrive", "[", 
             RowBox[{"[", "gpaID", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"QFuelGasNom", "=", 
            RowBox[{"nomFuelGasConsumptions", "[", 
             RowBox[{"[", "gpaID", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"KFG", "=", 
            RowBox[{"fuelGasFactorsDrive", "[", 
             RowBox[{"[", "gpaID", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"etaMech", "=", 
            RowBox[{"mechanicalLossFactors", "[", 
             RowBox[{"[", "gpaID", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"KN", "=", 
            RowBox[{"powerFactorsAggregate", "[", 
             RowBox[{"[", "gpaID", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"KRev", "=", 
            RowBox[{"antifreezes", "[", 
             RowBox[{"[", "gpaID", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"KT", "=", 
            RowBox[{"influenceAirDistributionPower", "[", 
             RowBox[{"[", "gpaID", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"KU", "=", 
            RowBox[{"influenceHeatRecoverySystems", "[", 
             RowBox[{"[", "gpaID", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"KChargeMin", "=", 
            RowBox[{"KChargesMin", "[", 
             RowBox[{"[", "gpaID", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"KChargeMax", "=", 
            RowBox[{"KChargesMax", "[", 
             RowBox[{"[", "gpaID", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"nNom", "=", 
            RowBox[{"nMax", "[", 
             RowBox[{"[", "gpaID", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{"dynamic", " ", "data"}], "*)"}], "\[IndentingNewLine]", 
           RowBox[{"TAir", "=", 
            RowBox[{
             RowBox[{"temperaturesAir", "[", 
              RowBox[{"[", 
               RowBox[{"time", ",", "gpaID"}], "]"}], "]"}], "+", 
             "273.15"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"pAir", "=", 
            RowBox[{"millimeterMercury2pa", "[", 
             RowBox[{"pressuresAir", "[", 
              RowBox[{"[", 
               RowBox[{"time", ",", "gpaID"}], "]"}], "]"}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"hs", "=", 
            RowBox[{"hss", "[", 
             RowBox[{"[", 
              RowBox[{"time", ",", "gpaID"}], "]"}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"rhon", "=", 
            RowBox[{"rhons", "[", 
             RowBox[{"[", 
              RowBox[{"time", ",", "gpaID"}], "]"}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"NComputed", "=", 
            RowBox[{"calculatePower", "[", 
             RowBox[{"NiComputed", ",", "KN", ",", "etaMech"}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"KA", "=", 
            RowBox[{"calculateKA", "[", 
             RowBox[{
             "NNom", ",", "NComputed", ",", "TAir", ",", "TAirNom", ",", 
              "pAir", ",", "pAirNom"}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"NAvailable", "=", 
            RowBox[{"calculateNAvailable", "[", 
             RowBox[{
             "NNom", ",", "KN", ",", "KRev", ",", "TAir", ",", "pAir", ",", 
              "KT", ",", "KU", ",", "TAirNom", ",", "pAirNom"}], "]"}]}], ";",
            "\[IndentingNewLine]", 
           RowBox[{"KChargeComputed", "=", 
            RowBox[{"calculateKCharge", "[", 
             RowBox[{
              RowBox[{"nComputed", "/", 
               RowBox[{"nMax", "[", 
                RowBox[{"[", "gpaID", "]"}], "]"}]}], ",", "QprComputed", ",",
               "rho", ",", "NAvailable", ",", "etaMech", ",", "KN"}], "]"}]}],
            ";", "\[IndentingNewLine]", 
           RowBox[{"QFuelGasComputed", "=", 
            RowBox[{"1000", "*", 
             RowBox[{"calculateFuelGas", "[", 
              RowBox[{
              "QFuelGasNom", ",", "hs", ",", "hsNom", ",", "KA", ",", "KFG"}],
               "]"}]}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"TOutComputed", "=", 
            RowBox[{"calculateTOut", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"outPressures", "[", 
                RowBox[{"[", 
                 RowBox[{"time", ",", "gpaID"}], "]"}], "]"}], "/", 
               RowBox[{"inPressures", "[", 
                RowBox[{"[", 
                 RowBox[{"time", ",", "gpaID"}], "]"}], "]"}]}], ",", 
              "etaComputed", ",", 
              RowBox[{
               RowBox[{"kg2pa", "[", 
                RowBox[{"inPressures", "[", 
                 RowBox[{"[", 
                  RowBox[{"time", ",", "gpaID"}], "]"}], "]"}], "]"}], "*", 
               RowBox[{"10", "^", 
                RowBox[{"(", 
                 RowBox[{"-", "6"}], ")"}]}]}], ",", 
              RowBox[{
               RowBox[{"inTemperatures", "[", 
                RowBox[{"[", 
                 RowBox[{"time", ",", "gpaID"}], "]"}], "]"}], "+", 
               "273.15"}], ",", 
              RowBox[{"rhons", "[", 
               RowBox[{"[", 
                RowBox[{"time", ",", "gpaID"}], "]"}], "]"}], ",", 
              RowBox[{"calculateRspecific", "[", 
               RowBox[{"mMolars", "[", 
                RowBox[{"[", 
                 RowBox[{"time", ",", "gpaID"}], "]"}], "]"}], "]"}]}], 
             "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"QprMin", ",", "QprMax"}], "}"}], "=", 
            RowBox[{"findQprLimitsNTilde", "[", 
             RowBox[{"etaMin", ",", 
              RowBox[{
               RowBox[{"nComputed", "/", "nNom"}], "//", "N"}], ",", 
              "etaMech", ",", "KN", ",", "rhon", ",", "KChargeMin", ",", 
              "KChargeMax", ",", "NNom", ",", "KRev", ",", "TAir", ",", 
              "pAir", ",", "KT", ",", "KU", ",", "TAirNom", ",", "pAirNom", 
              ",", "QprNomMin", ",", "QprNomMax"}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"KUd", "=", 
            RowBox[{
             RowBox[{"QprComputed", "/", "QprMin"}], "//", "N"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"data", "=", 
            RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"data", "=", 
            RowBox[{"Insert", "[", 
             RowBox[{"data", ",", 
              RowBox[{"{", 
               RowBox[{"\"\<day\>\"", ",", "day"}], "}"}], ",", 
              RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"data", "=", 
            RowBox[{"Insert", "[", 
             RowBox[{"data", ",", 
              RowBox[{"{", 
               RowBox[{"\"\<time\>\"", ",", "time"}], "}"}], ",", 
              RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"data", "=", 
            RowBox[{"Insert", "[", 
             RowBox[{"data", ",", 
              RowBox[{"{", 
               RowBox[{"\"\<nComputed\>\"", ",", "nComputed"}], "}"}], ",", 
              RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"Print", "[", 
            RowBox[{"\"\<nComputed=\>\"", ",", "nComputed"}], "]"}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"data", "=", 
            RowBox[{"Insert", "[", 
             RowBox[{"data", ",", 
              RowBox[{"{", 
               RowBox[{"\"\<epsilon\>\"", ",", 
                RowBox[{"pointScaled", "[", 
                 RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
              RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"Print", "[", 
            RowBox[{"\"\<nFact=\>\"", ",", 
             RowBox[{"ns", "[", 
              RowBox[{"[", 
               RowBox[{"time", ",", "gpaID"}], "]"}], "]"}]}], "]"}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"data", "=", 
            RowBox[{"Insert", "[", 
             RowBox[{"data", ",", 
              RowBox[{"{", 
               RowBox[{"\"\<nFact\>\"", ",", 
                RowBox[{"ns", "[", 
                 RowBox[{"[", 
                  RowBox[{"time", ",", "gpaID"}], "]"}], "]"}]}], "}"}], ",", 
              
              RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"Print", "[", 
            RowBox[{"\"\<nTildePr=\>\"", ",", 
             RowBox[{"selectedEpsilonValue", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "]"}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"data", "=", 
            RowBox[{"Insert", "[", 
             RowBox[{"data", ",", 
              RowBox[{"{", 
               RowBox[{"\"\<nTildePr\>\"", ",", 
                RowBox[{"selectedEpsilonValue", "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", 
              RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"Print", "[", 
            RowBox[{"\"\<etaComputed=\>\"", ",", "etaComputed"}], "]"}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"data", "=", 
            RowBox[{"Insert", "[", 
             RowBox[{"data", ",", 
              RowBox[{"{", 
               RowBox[{"\"\<etaComputed\>\"", ",", "etaComputed"}], "}"}], 
              ",", 
              RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"Print", "[", 
            RowBox[{"\"\<TOutComputed=\>\"", ",", 
             RowBox[{"TOutComputed", "-", "273.15"}]}], "]"}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"data", "=", 
            RowBox[{"Insert", "[", 
             RowBox[{"data", ",", 
              RowBox[{"{", 
               RowBox[{"\"\<TOutComputed\>\"", ",", 
                RowBox[{"TOutComputed", "-", "273.15"}]}], "}"}], ",", 
              RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"Print", "[", 
            RowBox[{"\"\<NprComputed=\>\"", ",", "NprComputed"}], "]"}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"data", "=", 
            RowBox[{"Insert", "[", 
             RowBox[{"data", ",", 
              RowBox[{"{", 
               RowBox[{"\"\<NprComputed\>\"", ",", "NprComputed"}], "}"}], 
              ",", 
              RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"Print", "[", 
            RowBox[{"\"\<NAvailable=\>\"", ",", "NAvailable"}], "]"}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"data", "=", 
            RowBox[{"Insert", "[", 
             RowBox[{"data", ",", 
              RowBox[{"{", 
               RowBox[{"\"\<NAvailable\>\"", ",", "NAvailable"}], "}"}], ",", 
              
              RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"Print", "[", 
            RowBox[{"\"\<KUd=\>\"", ",", "KUd"}], "]"}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"data", "=", 
            RowBox[{"Insert", "[", 
             RowBox[{"data", ",", 
              RowBox[{"{", 
               RowBox[{"\"\<KUd\>\"", ",", "KUd"}], "}"}], ",", 
              RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"Print", "[", 
            RowBox[{"\"\<NiComputed=\>\"", ",", "NiComputed"}], "]"}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"data", "=", 
            RowBox[{"Insert", "[", 
             RowBox[{"data", ",", 
              RowBox[{"{", 
               RowBox[{"\"\<NiComputed\>\"", ",", "NiComputed"}], "}"}], ",", 
              
              RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"Print", "[", 
            RowBox[{"\"\<NComputed=\>\"", ",", "NComputed"}], "]"}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"data", "=", 
            RowBox[{"Insert", "[", 
             RowBox[{"data", ",", 
              RowBox[{"{", 
               RowBox[{"\"\<NComputed\>\"", ",", "NComputed"}], "}"}], ",", 
              RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"Print", "[", 
            RowBox[{"\"\<KChargeComputed=\>\"", ",", "KChargeComputed"}], 
            "]"}], ";", "\[IndentingNewLine]", 
           RowBox[{"data", "=", 
            RowBox[{"Insert", "[", 
             RowBox[{"data", ",", 
              RowBox[{"{", 
               RowBox[{"\"\<KChargeComputed\>\"", ",", "KChargeComputed"}], 
               "}"}], ",", 
              RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"Print", "[", 
            RowBox[{"\"\<QFuelGasComputed=\>\"", ",", "QFuelGasComputed"}], 
            "]"}], ";", "\[IndentingNewLine]", 
           RowBox[{"data", "=", 
            RowBox[{"Insert", "[", 
             RowBox[{"data", ",", 
              RowBox[{"{", 
               RowBox[{"\"\<QFuelGasComputed\>\"", ",", "QFuelGasComputed"}], 
               "}"}], ",", 
              RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"Print", "[", 
            RowBox[{"\"\<gpaWorkPointX=\>\"", ",", "Qvolume"}], "]"}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"data", "=", 
            RowBox[{"Insert", "[", 
             RowBox[{"data", ",", 
              RowBox[{"{", 
               RowBox[{"\"\<gpaWorkPointX\>\"", ",", "Qvolume"}], "}"}], ",", 
              
              RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"Print", "[", 
            RowBox[{"\"\<gpaWorkPointY=\>\"", ",", 
             RowBox[{"pointScaled", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"data", "=", 
            RowBox[{"Insert", "[", 
             RowBox[{"data", ",", 
              RowBox[{"{", 
               RowBox[{"\"\<gpaWorkPointY\>\"", ",", 
                RowBox[{"pointScaled", "[", 
                 RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
              RowBox[{"-", "1"}]}], "]"}]}]}], ",", "\[IndentingNewLine]", 
          RowBox[{"(*", 
           RowBox[{
           "The", " ", "point", " ", "is", " ", "out", " ", "of", " ", 
            "range", " ", "admissible", " ", 
            RowBox[{
             RowBox[{"regimes", "!!"}], "!"}]}], "*)"}], 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"data", "=", 
            RowBox[{"Insert", "[", 
             RowBox[{"data", ",", 
              RowBox[{"{", 
               RowBox[{"\"\<day\>\"", ",", "day"}], "}"}], ",", 
              RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"data", "=", 
            RowBox[{"Insert", "[", 
             RowBox[{"data", ",", 
              RowBox[{"{", 
               RowBox[{"\"\<time\>\"", ",", "time"}], "}"}], ",", 
              RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"data", "=", 
            RowBox[{"Insert", "[", 
             RowBox[{"data", ",", 
              RowBox[{"{", 
               RowBox[{"\"\<nComputed\>\"", ",", "0"}], "}"}], ",", 
              RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"data", "=", 
            RowBox[{"Insert", "[", 
             RowBox[{"data", ",", 
              RowBox[{"{", 
               RowBox[{"\"\<epsilon\>\"", ",", "0"}], "}"}], ",", 
              RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"data", "=", 
            RowBox[{"Insert", "[", 
             RowBox[{"data", ",", 
              RowBox[{"{", 
               RowBox[{"\"\<nFact\>\"", ",", 
                RowBox[{"ns", "[", 
                 RowBox[{"[", 
                  RowBox[{"time", ",", "gpaID"}], "]"}], "]"}]}], "}"}], ",", 
              
              RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"data", "=", 
            RowBox[{"Insert", "[", 
             RowBox[{"data", ",", 
              RowBox[{"{", 
               RowBox[{"\"\<nTildePr\>\"", ",", "0"}], "}"}], ",", 
              RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"data", "=", 
            RowBox[{"Insert", "[", 
             RowBox[{"data", ",", 
              RowBox[{"{", 
               RowBox[{"\"\<etaComputed\>\"", ",", "0"}], "}"}], ",", 
              RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"data", "=", 
            RowBox[{"Insert", "[", 
             RowBox[{"data", ",", 
              RowBox[{"{", 
               RowBox[{"\"\<TOutComputed\>\"", ",", "0"}], "}"}], ",", 
              RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"data", "=", 
            RowBox[{"Insert", "[", 
             RowBox[{"data", ",", 
              RowBox[{"{", 
               RowBox[{"\"\<NprComputed\>\"", ",", "0"}], "}"}], ",", 
              RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"data", "=", 
            RowBox[{"Insert", "[", 
             RowBox[{"data", ",", 
              RowBox[{"{", 
               RowBox[{"\"\<NAvailable\>\"", ",", "NAvailable"}], "}"}], ",", 
              
              RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"data", "=", 
            RowBox[{"Insert", "[", 
             RowBox[{"data", ",", 
              RowBox[{"{", 
               RowBox[{"\"\<KUd\>\"", ",", "0"}], "}"}], ",", 
              RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"data", "=", 
            RowBox[{"Insert", "[", 
             RowBox[{"data", ",", 
              RowBox[{"{", 
               RowBox[{"\"\<NiComputed\>\"", ",", "0"}], "}"}], ",", 
              RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"data", "=", 
            RowBox[{"Insert", "[", 
             RowBox[{"data", ",", 
              RowBox[{"{", 
               RowBox[{"\"\<NComputed\>\"", ",", "0"}], "}"}], ",", 
              RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"data", "=", 
            RowBox[{"Insert", "[", 
             RowBox[{"data", ",", 
              RowBox[{"{", 
               RowBox[{"\"\<KChargeComputed\>\"", ",", "0"}], "}"}], ",", 
              RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"data", "=", 
            RowBox[{"Insert", "[", 
             RowBox[{"data", ",", 
              RowBox[{"{", 
               RowBox[{"\"\<QFuelGasComputed\>\"", ",", "0"}], "}"}], ",", 
              RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"data", "=", 
            RowBox[{"Insert", "[", 
             RowBox[{"data", ",", 
              RowBox[{"{", 
               RowBox[{"\"\<gpaWorkPointX\>\"", ",", "0"}], "}"}], ",", 
              RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"data", "=", 
            RowBox[{"Insert", "[", 
             RowBox[{"data", ",", 
              RowBox[{"{", 
               RowBox[{"\"\<gpaWorkPointY\>\"", ",", "0"}], "}"}], ",", 
              RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{
           "Print", "[", 
            "\"\<The point is out of range admissible regimes!!!\>\"", "]"}], 
           ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
        
        RowBox[{"addResultsToDataset", "[", "data", "]"}]}]}], 
      "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
      "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", 
     "**", "**", "**", "**", "**", "**", "**", "**", "**"}], "*****)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"addResultsToDataset", "[", "data_", "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"dataset", "=", 
         RowBox[{"Insert", "[", 
          RowBox[{"dataset", ",", "\[IndentingNewLine]", 
           RowBox[{"<|", "\[IndentingNewLine]", 
            RowBox[{"(*", "day", "*)"}], "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{
              RowBox[{"data", "[", 
               RowBox[{"[", 
                RowBox[{"1", ",", "1"}], "]"}], "]"}], "->", 
              RowBox[{"data", "[", 
               RowBox[{"[", 
                RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"(*", "time", "*)"}], "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"data", "[", 
               RowBox[{"[", 
                RowBox[{"2", ",", "1"}], "]"}], "]"}], "->", 
              RowBox[{"data", "[", 
               RowBox[{"[", 
                RowBox[{"2", ",", "2"}], "]"}], "]"}]}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"(*", "nComputed", "*)"}], "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"data", "[", 
               RowBox[{"[", 
                RowBox[{"3", ",", "1"}], "]"}], "]"}], "->", 
              RowBox[{"data", "[", 
               RowBox[{"[", 
                RowBox[{"3", ",", "2"}], "]"}], "]"}]}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"(*", "epsilon", "*)"}], "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"data", "[", 
               RowBox[{"[", 
                RowBox[{"4", ",", "1"}], "]"}], "]"}], "->", 
              RowBox[{"data", "[", 
               RowBox[{"[", 
                RowBox[{"4", ",", "2"}], "]"}], "]"}]}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"(*", "nFact", "*)"}], "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"data", "[", 
               RowBox[{"[", 
                RowBox[{"5", ",", "1"}], "]"}], "]"}], "->", 
              RowBox[{"data", "[", 
               RowBox[{"[", 
                RowBox[{"5", ",", "2"}], "]"}], "]"}]}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"(*", "nTildePr", "*)"}], "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"data", "[", 
               RowBox[{"[", 
                RowBox[{"6", ",", "1"}], "]"}], "]"}], "->", 
              RowBox[{"data", "[", 
               RowBox[{"[", 
                RowBox[{"6", ",", "2"}], "]"}], "]"}]}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"(*", "etaComputed", "*)"}], "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"data", "[", 
               RowBox[{"[", 
                RowBox[{"7", ",", "1"}], "]"}], "]"}], "->", 
              RowBox[{"data", "[", 
               RowBox[{"[", 
                RowBox[{"7", ",", "2"}], "]"}], "]"}]}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"(*", "TOutComputed", "*)"}], "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"data", "[", 
               RowBox[{"[", 
                RowBox[{"8", ",", "1"}], "]"}], "]"}], "->", 
              RowBox[{"data", "[", 
               RowBox[{"[", 
                RowBox[{"8", ",", "2"}], "]"}], "]"}]}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"(*", "NprComputed", "*)"}], "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"data", "[", 
               RowBox[{"[", 
                RowBox[{"9", ",", "1"}], "]"}], "]"}], "->", 
              RowBox[{"data", "[", 
               RowBox[{"[", 
                RowBox[{"9", ",", "2"}], "]"}], "]"}]}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"(*", "NAvailable", "*)"}], "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"data", "[", 
               RowBox[{"[", 
                RowBox[{"10", ",", "1"}], "]"}], "]"}], "->", 
              RowBox[{"data", "[", 
               RowBox[{"[", 
                RowBox[{"10", ",", "2"}], "]"}], "]"}]}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"(*", "KUd", "*)"}], "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"data", "[", 
               RowBox[{"[", 
                RowBox[{"11", ",", "1"}], "]"}], "]"}], "->", 
              RowBox[{"data", "[", 
               RowBox[{"[", 
                RowBox[{"11", ",", "2"}], "]"}], "]"}]}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"(*", "NiComputed", "*)"}], "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"data", "[", 
               RowBox[{"[", 
                RowBox[{"12", ",", "1"}], "]"}], "]"}], "->", 
              RowBox[{"data", "[", 
               RowBox[{"[", 
                RowBox[{"12", ",", "2"}], "]"}], "]"}]}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"(*", "NComputed", "*)"}], "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"data", "[", 
               RowBox[{"[", 
                RowBox[{"13", ",", "1"}], "]"}], "]"}], "->", 
              RowBox[{"data", "[", 
               RowBox[{"[", 
                RowBox[{"13", ",", "2"}], "]"}], "]"}]}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"(*", "KChargeComputed", "*)"}], "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"data", "[", 
               RowBox[{"[", 
                RowBox[{"14", ",", "1"}], "]"}], "]"}], "->", 
              RowBox[{"data", "[", 
               RowBox[{"[", 
                RowBox[{"14", ",", "2"}], "]"}], "]"}]}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"(*", "QFuelGasComputed", "*)"}], "\[IndentingNewLine]", 
             
             RowBox[{
              RowBox[{"data", "[", 
               RowBox[{"[", 
                RowBox[{"15", ",", "1"}], "]"}], "]"}], "->", 
              RowBox[{"data", "[", 
               RowBox[{"[", 
                RowBox[{"15", ",", "2"}], "]"}], "]"}]}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"(*", "gpaWorkPointX", "*)"}], "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"data", "[", 
               RowBox[{"[", 
                RowBox[{"16", ",", "1"}], "]"}], "]"}], "->", 
              RowBox[{"data", "[", 
               RowBox[{"[", 
                RowBox[{"16", ",", "2"}], "]"}], "]"}]}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"(*", "gpaWorkPointY", "*)"}], "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"data", "[", 
               RowBox[{"[", 
                RowBox[{"17", ",", "1"}], "]"}], "]"}], "->", 
              RowBox[{"data", "[", 
               RowBox[{"[", 
                RowBox[{"17", ",", "2"}], "]"}], "]"}]}]}], 
            "\[IndentingNewLine]", "|>"}], ",", 
           RowBox[{"-", "1"}]}], "]"}]}], ";"}]}], "\[IndentingNewLine]", 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
      "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", 
     "**", "**", "**", "**", "**", "**", "**", "**", "**"}], "*****)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"writeResultsToFile", "[", "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Export", "[", 
         RowBox[{
         "\"\</home/dinara/Documents/gastrans/turan-math/cs_regime/data/\
output/dataset.xlsx\>\"", ",", 
          RowBox[{"Dataset", "[", "dataset", "]"}], ",", "\"\<XLSX\>\""}], 
         "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
      "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", 
     "**", "**", "**", "**", "**", "**", "**", "**", "**"}], "*****)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"writePtsToFile", "[", "path_", "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Export", "[", 
         RowBox[{
          RowBox[{"ToString", "[", "path", "]"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
            "\"\<boundaryLeftPoints\>\"", "->", "boundaryLeftPtsGlobal"}], 
            ",", "\[IndentingNewLine]", 
            RowBox[{
            "\"\<boundaryRightPoints\>\"", "->", "boundaryRightPtsGlobal"}], 
            ",", "\[IndentingNewLine]", 
            RowBox[{"\"\<boundaryUpperPoints\>\"", "->", 
             RowBox[{"filterPointsByDistance", "[", 
              RowBox[{"boundaryUpperPtsGlobal", ",", "1.15"}], "]"}]}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"\"\<boundaryLowerPoints\>\"", "->", 
             RowBox[{"filterPointsByDistance", "[", 
              RowBox[{"boundaryLowerPtsGlobal", ",", "1.15"}], "]"}]}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"\"\<surgePoints\>\"", "->", "surgePtsGlobal"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"\"\<filteredArrEta\>\"", "->", 
             RowBox[{"{", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"\"\<eta=0.61\>\"", "->", 
                RowBox[{"filteredArrEta", "[", 
                 RowBox[{"[", 
                  RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ",", 
               "\[IndentingNewLine]", 
               RowBox[{"\"\<eta=0.7\>\"", "->", 
                RowBox[{"filteredArrEta", "[", 
                 RowBox[{"[", 
                  RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ",", 
               "\[IndentingNewLine]", 
               RowBox[{"\"\<eta=0.76\>\"", "->", 
                RowBox[{"filteredArrEta", "[", 
                 RowBox[{"[", 
                  RowBox[{"3", ",", "1"}], "]"}], "]"}]}], ",", 
               "\[IndentingNewLine]", 
               RowBox[{"\"\<eta=0.82\>\"", "->", 
                RowBox[{"filteredArrEta", "[", 
                 RowBox[{"[", 
                  RowBox[{"4", ",", "1"}], "]"}], "]"}]}], ",", 
               "\[IndentingNewLine]", 
               RowBox[{"\"\<eta=0.82_2\>\"", "->", 
                RowBox[{"filteredArrEta", "[", 
                 RowBox[{"[", 
                  RowBox[{"4", ",", "2"}], "]"}], "]"}]}], ",", 
               "\[IndentingNewLine]", 
               RowBox[{"\"\<eta=0.84\>\"", "->", 
                RowBox[{"filteredArrEta", "[", 
                 RowBox[{"[", 
                  RowBox[{"5", ",", "1"}], "]"}], "]"}]}], ",", 
               "\[IndentingNewLine]", 
               RowBox[{"\"\<eta=0.84_2\>\"", "->", 
                RowBox[{"filteredArrEta", "[", 
                 RowBox[{"[", 
                  RowBox[{"5", ",", "2"}], "]"}], "]"}]}]}], 
              "\[IndentingNewLine]", "}"}]}], ",", "\[IndentingNewLine]", 
            RowBox[{"\"\<filteredArrEpsilon\>\"", "->", 
             RowBox[{"{", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"\"\<[n/nNom]pr=0.8\>\"", "->", 
                RowBox[{"filterPointsByDistance", "[", 
                 RowBox[{
                  RowBox[{"filteredArrEpsilon", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], ",", "1.15"}], "]"}]}], 
               ",", "\[IndentingNewLine]", 
               RowBox[{"\"\<[n/nNom]pr=0.85\>\"", "->", 
                RowBox[{"filterPointsByDistance", "[", 
                 RowBox[{
                  RowBox[{"filteredArrEpsilon", "[", 
                   RowBox[{"[", "2", "]"}], "]"}], ",", "1.15"}], "]"}]}], 
               ",", "\[IndentingNewLine]", 
               RowBox[{"\"\<[n/nNom]pr=0.9\>\"", "->", 
                RowBox[{"filterPointsByDistance", "[", 
                 RowBox[{
                  RowBox[{"filteredArrEpsilon", "[", 
                   RowBox[{"[", "3", "]"}], "]"}], ",", "1.15"}], "]"}]}], 
               ",", "\[IndentingNewLine]", 
               RowBox[{"\"\<[n/nNom]pr=0.95\>\"", "->", 
                RowBox[{"filterPointsByDistance", "[", 
                 RowBox[{
                  RowBox[{"filteredArrEpsilon", "[", 
                   RowBox[{"[", "4", "]"}], "]"}], ",", "1.15"}], "]"}]}], 
               ",", "\[IndentingNewLine]", 
               RowBox[{"\"\<[n/nNom]pr=1.0\>\"", "->", 
                RowBox[{"filterPointsByDistance", "[", 
                 RowBox[{
                  RowBox[{"filteredArrEpsilon", "[", 
                   RowBox[{"[", "5", "]"}], "]"}], ",", "1.15"}], "]"}]}], 
               ",", "\[IndentingNewLine]", 
               RowBox[{"\"\<[n/nNom]pr=1.05\>\"", "->", 
                RowBox[{"filterPointsByDistance", "[", 
                 RowBox[{
                  RowBox[{"filteredArrEpsilon", "[", 
                   RowBox[{"[", "6", "]"}], "]"}], ",", "1.15"}], "]"}]}], 
               ",", "\[IndentingNewLine]", 
               RowBox[{"\"\<[n/nNom]pr=1.1\>\"", "->", 
                RowBox[{"filterPointsByDistance", "[", 
                 RowBox[{
                  RowBox[{"filteredArrEpsilon", "[", 
                   RowBox[{"[", "7", "]"}], "]"}], ",", "1.15"}], "]"}]}]}], 
              "\[IndentingNewLine]", "}"}]}]}], "\[IndentingNewLine]", 
           "}"}]}], "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"ListLinePlot", "[", "surgePtsGlobal", "]"}], "//", 
         "Print"}], ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"ListPlot", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"filterPointsByDistance", "[", 
             RowBox[{
              RowBox[{"filteredArrEpsilon", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", "1.15"}], "]"}], ",", 
            RowBox[{"filterPointsByDistance", "[", 
             RowBox[{
              RowBox[{"filteredArrEpsilon", "[", 
               RowBox[{"[", "2", "]"}], "]"}], ",", "1.15"}], "]"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"filterPointsByDistance", "[", 
             RowBox[{
              RowBox[{"filteredArrEpsilon", "[", 
               RowBox[{"[", "3", "]"}], "]"}], ",", "1.15"}], "]"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"filterPointsByDistance", "[", 
             RowBox[{
              RowBox[{"filteredArrEpsilon", "[", 
               RowBox[{"[", "4", "]"}], "]"}], ",", "1.15"}], "]"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"filterPointsByDistance", "[", 
             RowBox[{
              RowBox[{"filteredArrEpsilon", "[", 
               RowBox[{"[", "5", "]"}], "]"}], ",", "1.15"}], "]"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"filterPointsByDistance", "[", 
             RowBox[{
              RowBox[{"filteredArrEpsilon", "[", 
               RowBox[{"[", "6", "]"}], "]"}], ",", "1.15"}], "]"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"filterPointsByDistance", "[", 
             RowBox[{
              RowBox[{"filteredArrEpsilon", "[", 
               RowBox[{"[", "7", "]"}], "]"}], ",", "1.15"}], "]"}]}], 
           "\[IndentingNewLine]", "}"}], "]"}], "//", "Print"}], ";"}]}], 
      "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
      "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", 
     "**", "**", "**", "**", "**", "**", "**", "**", "**"}], "*****)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"filterPointsByDistance", "[", 
      RowBox[{"arr_", ",", "coef_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"lenArr", "=", 
          RowBox[{"Length", "[", "arr", "]"}]}], ",", "m", ",", "point", ",", 
         
         RowBox[{"filteredArr", "=", 
          RowBox[{"{", "}"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"point", "=", 
         RowBox[{"arr", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"For", "[", 
         RowBox[{
          RowBox[{"m", "=", "2"}], ",", 
          RowBox[{"m", "<=", "lenArr"}], ",", 
          RowBox[{"m", "++"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"EuclideanDistance", "[", 
               RowBox[{
                RowBox[{"arr", "[", 
                 RowBox[{"[", "m", "]"}], "]"}], ",", "point"}], "]"}], ">", 
              RowBox[{"coef", "*", "deltaDistance"}]}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"filteredArr", "=", 
               RowBox[{"Insert", "[", 
                RowBox[{"filteredArr", ",", "point", ",", 
                 RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
              RowBox[{"point", "=", 
               RowBox[{"arr", "[", 
                RowBox[{"[", "m", "]"}], "]"}]}], ";"}]}], 
            "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", 
         "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"Return", "[", "filteredArr", "]"}], ";"}]}], 
      "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
      "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", 
     "**", "**", "**", "**", "**", "**", "**", "**", "**"}], "*****)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"findQprLimitsViaNTilde", "[", 
      RowBox[{"(*", 
       RowBox[{"static", " ", "data"}], "*)"}], 
      RowBox[{
      "etaMin_", ",", "nNomMin_", ",", "nNomMax_", ",", "etaMech_", ",", 
       "KN_", ",", "KChargeMin_", ",", "KChargeMax_", ",", "NNom_", ",", 
       "KRev_", ",", "KT_", ",", "KU_", ",", "QprNomMin_", ",", "QprNomMax_", 
       ",", 
       RowBox[{"(*", 
        RowBox[{"dynamic", " ", "data"}], "*)"}], "pIn_", ",", "TIn_", ",", 
       "rho_", ",", "nRev_", ",", "TAir_", ",", "pAir_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "QprMin", ",", "QprMax", ",", "QprLocal", ",", "nTildeCurrent", ",", 
         "KUd", ",", "KChargeComputed", ",", "NAvailable", ",", "NprComputed",
          ",", "powerInner", ",", "NPower", ",", 
         RowBox[{"QprArray", "=", 
          RowBox[{"{", "}"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"(*", "calculations", "*)"}], "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"NAvailable", "=", 
         RowBox[{"calculateNAvailable", "[", 
          RowBox[{
          "NNom", ",", "KN", ",", "KRev", ",", "TAir", ",", "pAir", ",", "KT",
            ",", "KU", ",", "TAirNom", ",", "pAirNom"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"nTildeCurrent", "=", 
         RowBox[{"calculateNTilde", "[", 
          RowBox[{"nRev", ",", "nNomMax"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"QprMin", ",", "QprMax"}], "}"}], "=", 
         RowBox[{"findQprLimits", "[", 
          RowBox[{
          "etaMin", ",", "nNomMin", ",", "nNomMax", ",", "etaMech", ",", "KN",
            ",", "rho", ",", "KChargeMin", ",", "KChargeMax", ",", "NNom", 
           ",", "KRev", ",", "TAir", ",", "pAir", ",", "KT", ",", "KU", ",", 
           "TAirNom", ",", "pAirNom", ",", "QprNomMin", ",", "QprNomMax"}], 
          "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"QprLocal", "=", "QprMin"}], ";", "\[IndentingNewLine]", 
        RowBox[{"While", "[", 
         RowBox[{
          RowBox[{"QprLocal", "<=", "QprMax"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"KUd", "=", 
            RowBox[{
             RowBox[{"QprLocal", "/", "QprMin"}], "//", "N"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"KChargeComputed", "=", 
            RowBox[{"calculateKCharge", "[", 
             RowBox[{
             "nTildeCurrent", ",", "QprLocal", ",", "rho", ",", "NAvailable", 
              ",", "etaMech", ",", "KN"}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"NprComputed", "=", 
            RowBox[{
             RowBox[{"fNpr", "[", 
              RowBox[{"normalizeQpr", "[", "QprLocal", "]"}], "]"}], "[", 
             RowBox[{"[", "2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"powerInner", "=", 
            RowBox[{"calculatePowerInner", "[", 
             RowBox[{"nTildeCurrent", ",", "rho", ",", "NprComputed"}], 
             "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"NPower", "=", 
            RowBox[{"calculatePower", "[", 
             RowBox[{"powerInner", ",", "KN", ",", "etaMech"}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"KChargeComputed", ">=", "KChargeMin"}], "&&", 
              RowBox[{"KChargeComputed", "<=", "KChargeMax"}], "&&", 
              RowBox[{"KUd", ">", "KUdMin"}], "&&", 
              RowBox[{"NPower", "\[LessEqual]", "NAvailable"}]}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"QprArray", "=", 
               RowBox[{"Insert", "[", 
                RowBox[{"QprArray", ",", "QprLocal", ",", 
                 RowBox[{"-", "1"}]}], "]"}]}], ";"}]}], 
            "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
           RowBox[{"QprLocal", "+=", 
            RowBox[{"100", "*", "deltaDistance"}]}]}]}], 
         "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Length", "[", "QprArray", "]"}], "==", "0"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
           "Print", "[", 
            "\"\<{QprMin,QprMax} are not available calculated\>\"", "]"}], 
           ";", "\[IndentingNewLine]", 
           RowBox[{"Return", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "1"}], ",", 
              RowBox[{"-", "1"}]}], "}"}], "]"}], ";"}]}], 
         "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"Return", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"QprArray", "[", 
            RowBox[{"[", "1", "]"}], "]"}], ",", 
           RowBox[{"QprArray", "[", 
            RowBox[{"[", 
             RowBox[{"Length", "[", "QprArray", "]"}], "]"}], "]"}]}], "}"}], 
         "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
      "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", 
     "**", "**", "**", "**", "**", "**", "**", "**", "**"}], "*****)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"computeRegimeParametersViaEpsilon", "[", 
      RowBox[{
      "Qpr_", ",", "epsilon_", ",", "ZIn_", ",", "TIn_", ",", "Rspecific_", 
       ",", "output_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"nTilde", ",", 
         RowBox[{"curveArr", "=", 
          RowBox[{"{", "}"}]}], ",", "nTildePr", ",", 
         RowBox[{"available", "=", "False"}], ",", "nearPoint", ",", 
         "position"}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
        "find", " ", "nTildePr", " ", "near", " ", "plot", " ", "curves"}], 
        "*)"}], "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"curveArr", "=", 
         RowBox[{"Insert", "[", 
          RowBox[{"curveArr", ",", 
           RowBox[{
            RowBox[{"fEpsilon75", "[", 
             RowBox[{"normalizeQpr", "[", "Qpr", "]"}], "]"}], "[", 
            RowBox[{"[", "2", "]"}], "]"}], ",", 
           RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"curveArr", "=", 
         RowBox[{"Insert", "[", 
          RowBox[{"curveArr", ",", 
           RowBox[{
            RowBox[{"fEpsilon80", "[", 
             RowBox[{"normalizeQpr", "[", "Qpr", "]"}], "]"}], "[", 
            RowBox[{"[", "2", "]"}], "]"}], ",", 
           RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"curveArr", "=", 
         RowBox[{"Insert", "[", 
          RowBox[{"curveArr", ",", 
           RowBox[{
            RowBox[{"fEpsilon85", "[", 
             RowBox[{"normalizeQpr", "[", "Qpr", "]"}], "]"}], "[", 
            RowBox[{"[", "2", "]"}], "]"}], ",", 
           RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"curveArr", "=", 
         RowBox[{"Insert", "[", 
          RowBox[{"curveArr", ",", 
           RowBox[{
            RowBox[{"fEpsilon90", "[", 
             RowBox[{"normalizeQpr", "[", "Qpr", "]"}], "]"}], "[", 
            RowBox[{"[", "2", "]"}], "]"}], ",", 
           RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"curveArr", "=", 
         RowBox[{"Insert", "[", 
          RowBox[{"curveArr", ",", 
           RowBox[{
            RowBox[{"fEpsilon95", "[", 
             RowBox[{"normalizeQpr", "[", "Qpr", "]"}], "]"}], "[", 
            RowBox[{"[", "2", "]"}], "]"}], ",", 
           RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"curveArr", "=", 
         RowBox[{"Insert", "[", 
          RowBox[{"curveArr", ",", 
           RowBox[{
            RowBox[{"fEpsilon100", "[", 
             RowBox[{"normalizeQpr", "[", "Qpr", "]"}], "]"}], "[", 
            RowBox[{"[", "2", "]"}], "]"}], ",", 
           RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"curveArr", "=", 
         RowBox[{"Insert", "[", 
          RowBox[{"curveArr", ",", 
           RowBox[{
            RowBox[{"fEpsilon105", "[", 
             RowBox[{"normalizeQpr", "[", "Qpr", "]"}], "]"}], "[", 
            RowBox[{"[", "2", "]"}], "]"}], ",", 
           RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"curveArr", "=", 
         RowBox[{"Insert", "[", 
          RowBox[{"curveArr", ",", 
           RowBox[{
            RowBox[{"fEpsilon110", "[", 
             RowBox[{"normalizeQpr", "[", "Qpr", "]"}], "]"}], "[", 
            RowBox[{"[", "2", "]"}], "]"}], ",", 
           RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"nearPoint", "=", 
         RowBox[{"Nearest", "[", 
          RowBox[{"curveArr", ",", "epsilon", ",", "1"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"EuclideanDistance", "[", 
            RowBox[{"nearPoint", ",", "epsilon"}], "]"}], ">", "0.05"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"Print", "[", "\"\<Regime not found!\>\"", "]"}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"Return", "[", 
            RowBox[{"-", "1"}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], 
        ";", "\[IndentingNewLine]", 
        RowBox[{"position", "=", 
         RowBox[{
          RowBox[{"Position", "[", 
           RowBox[{"curveArr", ",", 
            RowBox[{"nearPoint", "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"nTildePr", "=", 
         RowBox[{"segmentsArrNtildePr", "[", 
          RowBox[{"[", "position", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"nTilde", "=", 
         RowBox[{"nTildePr", "/", 
          RowBox[{"Sqrt", "[", 
           RowBox[{"Zpr", "*", "TStartpr", "*", 
            RowBox[{"Rpr", "/", 
             RowBox[{"(", 
              RowBox[{"ZIn", "*", "TIn", "*", "Rspecific"}], ")"}]}]}], 
           "]"}]}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"Return", "[", "nTilde", "]"}], ";"}]}], 
      "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
      "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", 
     "**", "**", "**", "**", "**", "**", "**", "**", "**"}], "*****)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"computeRegimeParameters", "[", 
      RowBox[{
      "pIn_", ",", "TIn_", ",", "Qpr_", ",", "ZIn_", ",", "rhon_", ",", 
       "Rspecific_", ",", "rho_", ",", "KN_", ",", "TAir_", ",", "pAir_", ",",
        "etaMech_", ",", "KRev_", ",", "KT_", ",", "KU_", ",", "NNom_", ",", 
       "etaMin_", ",", "nNomMin_", ",", "nNomMax_", ",", "KChargeMin_", ",", 
       "KChargeMax_", ",", "QprNomMin_", ",", "QprNomMax_", ",", "nRev_", ",",
        "output_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "nTilde", ",", "QprMin", ",", "QprMax", ",", "pOutComputed", ",", 
         "TOutComputed", ",", "available", ",", "nearArr", ",", "distances", 
         ",", "epsilonComputed", ",", "position", ",", "etaComputed", ",", 
         "nTildePr", ",", "l"}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"nTilde", "=", 
         RowBox[{
          RowBox[{"nRev", "/", "nNomMax"}], "//", "N"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"nTildePr", "=", 
         RowBox[{"calculateNTildePr", "[", 
          RowBox[{"nTilde", ",", "ZIn", ",", "TIn", ",", "Rspecific"}], 
          "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"QprMin", ",", "QprMax"}], "}"}], "=", 
         "\[IndentingNewLine]", 
         RowBox[{"findQprLimitsViaNTilde", "[", 
          RowBox[{
          "etaMin", ",", "nNomMin", ",", "nNomMax", ",", "etaMech", ",", "KN",
            ",", "KChargeMin", ",", "KChargeMax", ",", "NNom", ",", "KRev", 
           ",", "KT", ",", "KU", ",", "QprNomMin", ",", "QprNomMax", ",", 
           "pIn", ",", "TIn", ",", "rho", ",", "nRev", ",", "TAir", ",", 
           "pAir"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"QprMin", "<", "0"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"Print", "[", "\"\<QprMin & QprMax < 0\>\"", "]"}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"Print", "[", "\"\<Ooooooopppppppsssss\>\"", "]"}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"Print", "[", "\"\<No solution!\>\"", "]"}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"Print", "[", "\"\<!!!!!!!!!!!!!!!!!!!!\>\"", "]"}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"Return", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "1"}], ",", 
              RowBox[{"-", "1"}]}], "}"}], "]"}]}]}], "\[IndentingNewLine]", 
         "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{"output", ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"Print", "[", 
            RowBox[{"\"\<{QprMin,QprMax}=\>\"", ",", 
             RowBox[{"{", 
              RowBox[{"QprMin", ",", "QprMax"}], "}"}]}], "]"}], ";"}]}], 
         "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"Qpr", ">", "QprMax"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"Print", "[", "\"\<Qpr>QprMax\>\"", "]"}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"Print", "[", 
            RowBox[{"\"\<Qpr=\>\"", ",", "Qpr"}], "]"}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"Print", "[", 
            RowBox[{"\"\<QprMax=\>\"", ",", "QprMax"}], "]"}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"Print", "[", "\"\<Ooooooopppppppsssss\>\"", "]"}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"Print", "[", "\"\<No solution!\>\"", "]"}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"Print", "[", "\"\<!!!!!!!!!!!!!!!!!!!!\>\"", "]"}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"Return", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "1"}], ",", 
              RowBox[{"-", "1"}]}], "}"}], "]"}], ";"}]}], 
         "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"Qpr", "<", "QprMin"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"Print", "[", "\"\<Qpr<QprMin\>\"", "]"}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"Print", "[", 
            RowBox[{"\"\<Qpr=\>\"", ",", "Qpr"}], "]"}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"Print", "[", 
            RowBox[{"\"\<QprMin=\>\"", ",", "QprMin"}], "]"}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"Print", "[", "\"\<Ooooooopppppppsssss\>\"", "]"}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"Print", "[", "\"\<No solution!\>\"", "]"}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"Print", "[", "\"\<!!!!!!!!!!!!!!!!!!!!\>\"", "]"}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"Return", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "1"}], ",", 
              RowBox[{"-", "1"}]}], "}"}], "]"}], ";"}]}], 
         "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"available", "=", "False"}], ";", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"segmentsArrNtildePr", "[", 
              RowBox[{"[", "1", "]"}], "]"}], "-", "nTildePr"}], ">", 
            "0.05"}], "||", 
           RowBox[{
            RowBox[{"nTildePr", "-", 
             RowBox[{"segmentsArrNtildePr", "[", 
              RowBox[{"[", 
               RowBox[{"Length", "[", "segmentsArrNtildePr", "]"}], "]"}], 
              "]"}]}], ">", "0.05"}]}], ",", "\[IndentingNewLine]", 
          RowBox[{"available", "=", "False"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"nearArr", "=", 
            RowBox[{"Nearest", "[", 
             RowBox[{"segmentsArrNtildePr", ",", "nTildePr", ",", "2"}], 
             "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"distances", "=", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"Abs", "[", 
               RowBox[{
                RowBox[{"nearArr", "[", 
                 RowBox[{"[", "l", "]"}], "]"}], "-", "nTildePr"}], "]"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{"l", ",", "2"}], "}"}]}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{
            "calculate", " ", "nTildePr", " ", "near", " ", "plot", " ", 
             "curves"}], "*)"}], "\[IndentingNewLine]", 
           RowBox[{"epsilonComputed", "=", "0"}], ";", "\[IndentingNewLine]", 
           
           RowBox[{"For", "[", 
            RowBox[{
             RowBox[{"l", "=", "1"}], ",", 
             RowBox[{"l", "<=", "2"}], ",", 
             RowBox[{"l", "++"}], ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"position", "=", 
               RowBox[{
                RowBox[{"Position", "[", 
                 RowBox[{"segmentsArrNtildePr", ",", 
                  RowBox[{"nearArr", "[", 
                   RowBox[{"[", "l", "]"}], "]"}]}], "]"}], "[", 
                RowBox[{"[", 
                 RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ";", 
              "\[IndentingNewLine]", 
              RowBox[{"Which", "[", "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{"position", "==", "1"}], ",", "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{"available", "=", "True"}], ";", 
                 "\[IndentingNewLine]", 
                 RowBox[{
                  RowBox[{"epsilonComputed", "+=", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"fEpsilon75", "[", 
                    RowBox[{"normalizeQpr", "[", "Qpr", "]"}], "]"}], "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "*", 
                    RowBox[{
                    RowBox[{"distances", "[", 
                    RowBox[{"[", "l", "]"}], "]"}], "/", "0.05"}]}]}], "//", 
                  "N"}]}], ",", "\[IndentingNewLine]", 
                RowBox[{"position", "==", "2"}], ",", "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{"available", "=", "True"}], ";", 
                 "\[IndentingNewLine]", 
                 RowBox[{
                  RowBox[{"epsilonComputed", "+=", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"fEpsilon80", "[", 
                    RowBox[{"normalizeQpr", "[", "Qpr", "]"}], "]"}], "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "*", 
                    RowBox[{
                    RowBox[{"distances", "[", 
                    RowBox[{"[", "l", "]"}], "]"}], "/", "0.05"}]}]}], "//", 
                  "N"}]}], ",", "\[IndentingNewLine]", 
                RowBox[{"position", "==", "3"}], ",", "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{"available", "=", "True"}], ";", 
                 "\[IndentingNewLine]", 
                 RowBox[{
                  RowBox[{"epsilonComputed", "+=", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"fEpsilon85", "[", 
                    RowBox[{"normalizeQpr", "[", "Qpr", "]"}], "]"}], "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "*", 
                    RowBox[{
                    RowBox[{"distances", "[", 
                    RowBox[{"[", "l", "]"}], "]"}], "/", "0.05"}]}]}], "//", 
                  "N"}]}], ",", "\[IndentingNewLine]", 
                RowBox[{"position", "==", "4"}], ",", "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{"available", "=", "True"}], ";", 
                 "\[IndentingNewLine]", 
                 RowBox[{
                  RowBox[{"epsilonComputed", "+=", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"fEpsilon90", "[", 
                    RowBox[{"normalizeQpr", "[", "Qpr", "]"}], "]"}], "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "*", 
                    RowBox[{
                    RowBox[{"distances", "[", 
                    RowBox[{"[", "l", "]"}], "]"}], "/", "0.05"}]}]}], "//", 
                  "N"}]}], ",", "\[IndentingNewLine]", 
                RowBox[{"position", "==", "5"}], ",", "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{"available", "=", "True"}], ";", 
                 "\[IndentingNewLine]", 
                 RowBox[{
                  RowBox[{"epsilonComputed", "+=", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"fEpsilon95", "[", 
                    RowBox[{"normalizeQpr", "[", "Qpr", "]"}], "]"}], "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "*", 
                    RowBox[{
                    RowBox[{"distances", "[", 
                    RowBox[{"[", "l", "]"}], "]"}], "/", "0.05"}]}]}], "//", 
                  "N"}]}], ",", "\[IndentingNewLine]", 
                RowBox[{"position", "==", "6"}], ",", "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{"available", "=", "True"}], ";", 
                 "\[IndentingNewLine]", 
                 RowBox[{
                  RowBox[{"epsilonComputed", "+=", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"fEpsilon100", "[", 
                    RowBox[{"normalizeQpr", "[", "Qpr", "]"}], "]"}], "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "*", 
                    RowBox[{
                    RowBox[{"distances", "[", 
                    RowBox[{"[", "l", "]"}], "]"}], "/", "0.05"}]}]}], "//", 
                  "N"}]}], ",", "\[IndentingNewLine]", 
                RowBox[{"position", "==", "7"}], ",", "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{"available", "=", "True"}], ";", 
                 "\[IndentingNewLine]", 
                 RowBox[{
                  RowBox[{"epsilonComputed", "+=", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"fEpsilon105", "[", 
                    RowBox[{"normalizeQpr", "[", "Qpr", "]"}], "]"}], "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "*", 
                    RowBox[{
                    RowBox[{"distances", "[", 
                    RowBox[{"[", "l", "]"}], "]"}], "/", "0.05"}]}]}], "//", 
                  "N"}]}], ",", "\[IndentingNewLine]", 
                RowBox[{"position", "==", "8"}], ",", "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{"available", "=", "True"}], ";", 
                 "\[IndentingNewLine]", 
                 RowBox[{
                  RowBox[{"epsilonComputed", "+=", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"fEpsilon110", "[", 
                    RowBox[{"normalizeQpr", "[", "Qpr", "]"}], "]"}], "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "*", 
                    RowBox[{
                    RowBox[{"distances", "[", 
                    RowBox[{"[", "l", "]"}], "]"}], "/", "0.05"}]}]}], "//", 
                  "N"}]}]}], "\[IndentingNewLine]", "]"}], ";"}]}], 
            "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", 
         "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"!", "available"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
           "Print", "[", 
            "\"\<Not available calculate epsilon via plot data!\>\"", "]"}], 
           ";", "\[IndentingNewLine]", 
           RowBox[{"Return", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "1"}], ",", 
              RowBox[{"-", "1"}]}], "}"}], "]"}]}]}], "\[IndentingNewLine]", 
         "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"pOutComputed", "=", 
         RowBox[{"pIn", "*", "epsilonComputed"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"etaComputed", "=", 
         RowBox[{
          RowBox[{"fEta", "[", 
           RowBox[{"normalizeQpr", "[", "Qpr", "]"}], "]"}], "[", 
          RowBox[{"[", "2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"TOutComputed", "=", 
         RowBox[{"calculateTOut", "[", 
          RowBox[{"epsilonComputed", ",", "etaComputed", ",", 
           RowBox[{"pIn", "*", 
            RowBox[{"10", "^", 
             RowBox[{"(", 
              RowBox[{"-", "6"}], ")"}]}]}], ",", "TIn", ",", "rhon", ",", 
           "Rspecific"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"Return", "[", 
         RowBox[{"{", 
          RowBox[{"pOutComputed", ",", "TOutComputed"}], "}"}], "]"}], 
        ";"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
      "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", 
     "**", "**", "**", "**", "**", "**", "**", "**", "**"}], "*****)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"checkPointInAdmissibleRegimesRange", "[", 
      RowBox[{"Qvolume_", ",", "time_", ",", "gpaID_"}], "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"lenArr", "=", 
          RowBox[{"Length", "[", "splineBoundary", "]"}]}], ",", "s", ",", 
         "t", ",", 
         RowBox[{"point", "=", 
          RowBox[{"{", 
           RowBox[{"Qvolume", ",", 
            RowBox[{
             RowBox[{
              RowBox[{"outPressures", "[", 
               RowBox[{"[", 
                RowBox[{"time", ",", "gpaID"}], "]"}], "]"}], "/", 
              RowBox[{"inPressures", "[", 
               RowBox[{"[", 
                RowBox[{"time", ",", "gpaID"}], "]"}], "]"}]}], "//", "N"}]}],
            "}"}]}], ",", 
         RowBox[{"boundaryIndexes", "=", 
          RowBox[{"{", "}"}]}], ",", 
         RowBox[{"available", "=", "True"}], ",", 
         RowBox[{"valQvolumeParam", "=", 
          RowBox[{"{", "}"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"For", "[", 
         RowBox[{
          RowBox[{"s", "=", "1"}], ",", 
          RowBox[{"s", "<=", "lenArr"}], ",", 
          RowBox[{"s", "++"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"t", "=", "0"}], ";", "\[IndentingNewLine]", 
           RowBox[{"While", "[", 
            RowBox[{
             RowBox[{"t", "\[LessEqual]", "1"}], ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Abs", "[", 
                  RowBox[{
                   RowBox[{"point", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], "-", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"splineBoundary", "[", 
                    RowBox[{"[", "s", "]"}], "]"}], "[", "t", "]"}], "[", 
                    RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "<", 
                 "QvolumeDistance"}], ",", "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{"valQvolumeParam", "=", 
                  RowBox[{"Insert", "[", 
                   RowBox[{"valQvolumeParam", ",", "t", ",", 
                    RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
                 RowBox[{"boundaryIndexes", "=", 
                  RowBox[{"Insert", "[", 
                   RowBox[{"boundaryIndexes", ",", "s", ",", 
                    RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
                 RowBox[{"Break", "[", "]"}], ";"}]}], "\[IndentingNewLine]", 
               "]"}], ";", "\[IndentingNewLine]", 
              RowBox[{"t", "+=", 
               RowBox[{"0.1", "*", "deltaDistance"}]}], ";"}]}], 
            "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", 
         "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Length", "[", "boundaryIndexes", "]"}], ">", "1"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"lenArr", "=", 
            RowBox[{"Length", "[", "boundaryIndexes", "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"For", "[", 
            RowBox[{
             RowBox[{"s", "=", "1"}], ",", 
             RowBox[{"s", "\[LessEqual]", "lenArr"}], ",", 
             RowBox[{"s", "++"}], ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"Which", "[", "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{"boundaryIndexes", "[", 
                   RowBox[{"[", "s", "]"}], "]"}], "\[Equal]", "1"}], "||", 
                 RowBox[{
                  RowBox[{"boundaryIndexes", "[", 
                   RowBox[{"[", "s", "]"}], "]"}], "\[Equal]", "3"}]}], ",", 
                "\[IndentingNewLine]", 
                RowBox[{"If", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"point", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], ">", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"splineBoundary", "[", 
                    RowBox[{"[", 
                    RowBox[{"boundaryIndexes", "[", 
                    RowBox[{"[", "s", "]"}], "]"}], "]"}], "]"}], "[", 
                    RowBox[{"valQvolumeParam", "[", 
                    RowBox[{"[", "s", "]"}], "]"}], "]"}], "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], 
                  RowBox[{"(*", 
                   RowBox[{"&&", 
                    RowBox[{
                    RowBox[{"Abs", "[", 
                    RowBox[{
                    RowBox[{"point", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "-", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"splineBoundary", "[", 
                    RowBox[{"[", 
                    RowBox[{"boundaryIndexes", "[", 
                    RowBox[{"[", "s", "]"}], "]"}], "]"}], "]"}], "[", 
                    RowBox[{"valQvolumeParam", "[", 
                    RowBox[{"[", "s", "]"}], "]"}], "]"}], "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ">", 
                    RowBox[{"deltaDistance", "/", "2"}]}]}], "*)"}], ",", 
                  "\[IndentingNewLine]", 
                  RowBox[{
                   RowBox[{"Print", "[", 
                    RowBox[{"\"\<boundaryIndexes[[s]]=\>\"", ",", 
                    RowBox[{"boundaryIndexes", "[", 
                    RowBox[{"[", "s", "]"}], "]"}]}], "]"}], ";", 
                   "\[IndentingNewLine]", 
                   RowBox[{
                   "Print", "[", 
                    "\"\<point[[2]]>splineBoundary[[boundaryIndexes[[s]]]][\
valQvolumeParam][[2]]\>\"", "]"}], ";", "\[IndentingNewLine]", 
                   RowBox[{"available", "=", "False"}]}]}], 
                 "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{
                  RowBox[{"boundaryIndexes", "[", 
                   RowBox[{"[", "s", "]"}], "]"}], "\[Equal]", "2"}], "||", 
                 RowBox[{
                  RowBox[{"boundaryIndexes", "[", 
                   RowBox[{"[", "s", "]"}], "]"}], "\[Equal]", "4"}]}], ",", 
                "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{"If", "[", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"point", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "<", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"splineBoundary", "[", 
                    RowBox[{"[", 
                    RowBox[{"boundaryIndexes", "[", 
                    RowBox[{"[", "s", "]"}], "]"}], "]"}], "]"}], "[", 
                    RowBox[{"valQvolumeParam", "[", 
                    RowBox[{"[", "s", "]"}], "]"}], "]"}], "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], 
                   RowBox[{"(*", 
                    RowBox[{"&&", 
                    RowBox[{
                    RowBox[{"Abs", "[", 
                    RowBox[{
                    RowBox[{"point", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "-", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"splineBoundary", "[", 
                    RowBox[{"[", 
                    RowBox[{"boundaryIndexes", "[", 
                    RowBox[{"[", "s", "]"}], "]"}], "]"}], "]"}], "[", 
                    RowBox[{"valQvolumeParam", "[", 
                    RowBox[{"[", "s", "]"}], "]"}], "]"}], "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ">", 
                    RowBox[{"deltaDistance", "/", "2"}]}]}], "*)"}], ",", 
                   "\[IndentingNewLine]", 
                   RowBox[{
                    RowBox[{"Print", "[", 
                    RowBox[{"\"\<boundaryIndexes[[s]]=\>\"", ",", 
                    RowBox[{"boundaryIndexes", "[", 
                    RowBox[{"[", "s", "]"}], "]"}]}], "]"}], ";", 
                    "\[IndentingNewLine]", 
                    RowBox[{
                    "Print", "[", 
                    "\"\<point[[2]]<splineBoundary[[boundaryIndexes[[s]]]][\
valQvolumeParam][[2]]\>\"", "]"}], ";", "\[IndentingNewLine]", 
                    RowBox[{"available", "=", "False"}]}]}], 
                  "\[IndentingNewLine]", "]"}], ";"}]}], 
               "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", 
            "]"}]}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
           "Print", "[", "\"\<Length[boundaryIndexes]<1!!!\>\"", "]"}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"available", "=", "False"}], ";"}]}], 
         "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"Return", "[", "available", "]"}]}]}], "\[IndentingNewLine]", 
      "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
      "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", 
     "**", "**", "**", "**", "**", "**", "**", "**", "**"}], "*****)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"!", 
     RowBox[{"!", 
      RowBox[{"!", 
       RowBox[{"not", " ", "include", " ", "in", " ", 
        RowBox[{
         RowBox[{"development", "!!"}], "!"}]}]}]}]}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"fillDataForCompare", "[", "gpas_", "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"n", ",", 
         RowBox[{"numGpas", "=", 
          RowBox[{"Length", "[", "gpas", "]"}]}], ",", "gpaID", ",", "k", ",",
          "time", ",", "pIn", ",", "pOut", ",", "TIn", ",", "rhon", ",", 
         "mMolar", ",", "nFact", ",", "Rspecific", ",", "CO2", ",", "hs", ",",
          "H2", ",", "Q", ",", "rho", ",", "Qvolume", ",", "nTilde", ",", 
         "nNom", ",", "TOut", ",", "QprLocal", ",", "epsilonComputed", ",", 
         RowBox[{"epsilonValues", "=", 
          RowBox[{"{", "}"}]}], ",", "etaComputed", ",", 
         RowBox[{"etaValues", "=", 
          RowBox[{"{", "}"}]}], ",", "NprComputed", ",", 
         RowBox[{"NprValues", "=", 
          RowBox[{"{", "}"}]}], ",", 
         RowBox[{"nTildePr", "=", 
          RowBox[{"{", "}"}]}], ",", "Z", ",", 
         RowBox[{"molarDensity", "=", "1"}], ",", "ordered", ",", 
         RowBox[{"QprArray", "=", 
          RowBox[{"{", "}"}]}], ",", "epsilonValuesOrdered", ",", 
         "etaValuesOrdered", ",", "NprValuesOrdered", ",", "l", ",", 
         RowBox[{"QprOrderedLocal", "=", 
          RowBox[{"{", "}"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"n", "=", 
         RowBox[{"Length", "[", "QprOrdered", "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"For", "[", 
         RowBox[{
          RowBox[{"k", "=", "1"}], ",", 
          RowBox[{"k", "<=", "numGpas"}], ",", 
          RowBox[{"k", "++"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"gpaID", "=", 
            RowBox[{"gpas", "[", 
             RowBox[{"[", "k", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{
             RowBox[{"--", 
              RowBox[{"-", 
               RowBox[{"static", "--"}]}]}], "-"}], "*)"}], 
           "\[IndentingNewLine]", 
           RowBox[{"nNom", "=", 
            RowBox[{"nMax", "[", 
             RowBox[{"[", "gpaID", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"For", "[", 
            RowBox[{
             RowBox[{"time", "=", "1"}], ",", 
             RowBox[{"time", "<", "numTimes"}], ",", 
             RowBox[{"time", "++"}], ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"pIn", "=", 
               RowBox[{"inPressures", "[", 
                RowBox[{"[", 
                 RowBox[{"time", ",", "gpaID"}], "]"}], "]"}]}], ";", 
              "\[IndentingNewLine]", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"pIn", ">", "0"}], "&&", 
                 RowBox[{"!", 
                  RowBox[{"MemberQ", "[", 
                   RowBox[{"nonConsideredArr", ",", "time"}], "]"}]}]}], ",", 
                "\[IndentingNewLine]", 
                RowBox[{"(*", 
                 RowBox[{
                  RowBox[{"--", 
                   RowBox[{"-", 
                    RowBox[{"dynamic", "--"}]}]}], "-"}], "*)"}], 
                "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{"pOut", "=", 
                  RowBox[{"outPressures", "[", 
                   RowBox[{"[", 
                    RowBox[{"time", ",", "gpaID"}], "]"}], "]"}]}], ";", 
                 "\[IndentingNewLine]", 
                 RowBox[{"pIn", "=", 
                  RowBox[{"inPressures", "[", 
                   RowBox[{"[", 
                    RowBox[{"time", ",", "gpaID"}], "]"}], "]"}]}], ";", 
                 "\[IndentingNewLine]", 
                 RowBox[{"TIn", "=", 
                  RowBox[{
                   RowBox[{"inTemperatures", "[", 
                    RowBox[{"[", 
                    RowBox[{"time", ",", "gpaID"}], "]"}], "]"}], "+", 
                   "273.15"}]}], ";", "\[IndentingNewLine]", 
                 RowBox[{"TOut", "=", 
                  RowBox[{
                   RowBox[{"outTemperatures", "[", 
                    RowBox[{"[", 
                    RowBox[{"time", ",", "gpaID"}], "]"}], "]"}], "+", 
                   "273.15"}]}], ";", "\[IndentingNewLine]", 
                 RowBox[{"rhon", "=", 
                  RowBox[{"rhons", "[", 
                   RowBox[{"[", 
                    RowBox[{"time", ",", "gpaID"}], "]"}], "]"}]}], ";", 
                 "\[IndentingNewLine]", 
                 RowBox[{"mMolar", "=", 
                  RowBox[{"mMolars", "[", 
                   RowBox[{"[", 
                    RowBox[{"time", ",", "gpaID"}], "]"}], "]"}]}], ";", 
                 "\[IndentingNewLine]", 
                 RowBox[{"nFact", "=", 
                  RowBox[{"ns", "[", 
                   RowBox[{"[", 
                    RowBox[{"time", ",", "gpaID"}], "]"}], "]"}]}], ";", 
                 "\[IndentingNewLine]", 
                 RowBox[{"Rspecific", "=", 
                  RowBox[{"calculateRspecific", "[", "mMolar", "]"}]}], ";", 
                 "\[IndentingNewLine]", 
                 RowBox[{"CO2", "=", 
                  RowBox[{"CO2s", "[", 
                   RowBox[{"[", 
                    RowBox[{"time", ",", "gpaID"}], "]"}], "]"}]}], ";", 
                 "\[IndentingNewLine]", 
                 RowBox[{"hs", "=", 
                  RowBox[{"hss", "[", 
                   RowBox[{"[", 
                    RowBox[{"time", ",", "gpaID"}], "]"}], "]"}]}], ";", 
                 "\[IndentingNewLine]", 
                 RowBox[{"H2", "=", 
                  RowBox[{"H2s", "[", 
                   RowBox[{"[", 
                    RowBox[{"time", ",", "gpaID"}], "]"}], "]"}]}], ";", 
                 "\[IndentingNewLine]", 
                 RowBox[{"Q", "=", 
                  RowBox[{"Qs", "[", 
                   RowBox[{"[", 
                    RowBox[{"time", ",", "gpaID"}], "]"}], "]"}]}], ";", 
                 "\[IndentingNewLine]", 
                 RowBox[{"rho", "=", 
                  RowBox[{"calculateRho", "[", 
                   RowBox[{
                    RowBox[{"kg2pa", "[", "pIn", "]"}], ",", "TIn", ",", 
                    "Rspecific", ",", "CO2", ",", "hs", ",", "H2", ",", 
                    "rhon"}], "]"}]}], ";", "\[IndentingNewLine]", 
                 RowBox[{"Z", "=", 
                  RowBox[{"SGERG", "[", 
                   RowBox[{"CO2", ",", "hs", ",", "H2", ",", 
                    RowBox[{
                    RowBox[{"kg2pa", "[", "pIn", "]"}], "*", 
                    RowBox[{"10", "^", 
                    RowBox[{"(", 
                    RowBox[{"-", "5"}], ")"}]}]}], ",", 
                    RowBox[{"TIn", "-", "273.15"}], ",", "rhon", ",", 
                    "molarDensity"}], "]"}]}], ";", "\[IndentingNewLine]", 
                 RowBox[{"Qvolume", "=", 
                  RowBox[{"calculateQvolume", "[", 
                   RowBox[{"Q", ",", "rhon", ",", "rho"}], "]"}]}], ";", 
                 "\[IndentingNewLine]", 
                 RowBox[{"nTilde", "=", 
                  RowBox[{
                   RowBox[{"nFact", "/", "nNom"}], "//", "N"}]}], ";", 
                 "\[IndentingNewLine]", 
                 RowBox[{"nTildePr", "=", 
                  RowBox[{"Insert", "[", 
                   RowBox[{"nTildePr", ",", 
                    RowBox[{"calculateNTildePr", "[", 
                    RowBox[{
                    "nTilde", ",", "Z", ",", "TIn", ",", "Rspecific"}], "]"}],
                     ",", 
                    RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
                 RowBox[{"QprLocal", "=", 
                  RowBox[{"calculateQpr", "[", 
                   RowBox[{"Qvolume", ",", "nFact", ",", "nNom"}], "]"}]}], 
                 ";", "\[IndentingNewLine]", 
                 RowBox[{"QprArray", "=", 
                  RowBox[{"Insert", "[", 
                   RowBox[{"QprArray", ",", "QprLocal", ",", 
                    RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
                 RowBox[{"epsilonComputed", "=", 
                  RowBox[{
                   RowBox[{"pOut", "/", "pIn"}], "//", "N"}]}], ";", 
                 "\[IndentingNewLine]", 
                 RowBox[{"epsilonValues", "=", 
                  RowBox[{"Insert", "[", 
                   RowBox[{"epsilonValues", ",", "epsilonComputed", ",", 
                    RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
                 RowBox[{"etaComputed", "=", 
                  RowBox[{"calculateEta", "[", 
                   RowBox[{
                   "epsilonComputed", ",", "pIn", ",", "TIn", ",", "pOut", 
                    ",", "TOut", ",", "rhon", ",", "CO2", ",", "H2", ",", 
                    "hs"}], "]"}]}], ";", "\[IndentingNewLine]", 
                 RowBox[{"etaValues", "=", 
                  RowBox[{"Insert", "[", 
                   RowBox[{"etaValues", ",", "etaComputed", ",", 
                    RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
                 RowBox[{"NprComputed", "=", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"calculatePowerInnerViaEta", "[", 
                    RowBox[{"epsilonComputed", ",", "etaComputed", ",", 
                    RowBox[{
                    RowBox[{"kg2pa", "[", "pIn", "]"}], "*", 
                    RowBox[{"10", "^", 
                    RowBox[{"(", 
                    RowBox[{"-", "6"}], ")"}]}]}], ",", "Qvolume"}], "]"}], 
                    "/", "rho"}], "*", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "/", "nTilde"}], ")"}], "^", "3"}]}]}], ";", 
                 "\[IndentingNewLine]", 
                 RowBox[{"NprValues", "=", 
                  RowBox[{"Insert", "[", 
                   RowBox[{"NprValues", ",", "NprComputed", ",", 
                    RowBox[{"-", "1"}]}], "]"}]}], ";"}]}], 
               "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", 
            "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"ordered", "=", 
         RowBox[{"Ordering", "[", "QprArray", "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"QprOrderedLocal", "=", 
         RowBox[{"QprArray", "[", 
          RowBox[{"[", "ordered", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
        
        RowBox[{"epsilonValuesOrdered", "=", 
         RowBox[{"epsilonValues", "[", 
          RowBox[{"[", "ordered", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
        
        RowBox[{"etaValuesOrdered", "=", 
         RowBox[{"etaValues", "[", 
          RowBox[{"[", "ordered", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
        
        RowBox[{"NprValuesOrdered", "=", 
         RowBox[{"NprValues", "[", 
          RowBox[{"[", "ordered", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
        
        RowBox[{"nTildePr", "=", 
         RowBox[{"nTildePr", "[", 
          RowBox[{"[", "ordered", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
        
        RowBox[{"n", "=", 
         RowBox[{"Length", "[", "QprArray", "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{"clear", " ", "local", " ", "arrays"}], "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"epsilonPtsLocal75", "=", 
         RowBox[{"{", "}"}]}], ";", 
        RowBox[{"epsilonPtsLocal80", "=", 
         RowBox[{"{", "}"}]}], ";", 
        RowBox[{"epsilonPtsLocal85", "=", 
         RowBox[{"{", "}"}]}], ";", 
        RowBox[{"epsilonPtsLocal90", "=", 
         RowBox[{"{", "}"}]}], ";", 
        RowBox[{"epsilonPtsLocal95", "=", 
         RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"epsilonPtsLocal100", "=", 
         RowBox[{"{", "}"}]}], ";", 
        RowBox[{"epsilonPtsLocal105", "=", 
         RowBox[{"{", "}"}]}], ";", 
        RowBox[{"epsilonPtsLocal110", "=", 
         RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"etaPtsLocal", "=", 
         RowBox[{"{", "}"}]}], ";", 
        RowBox[{"NprPtsLocal", "=", 
         RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"For", "[", 
         RowBox[{
          RowBox[{"l", "=", "1"}], ",", 
          RowBox[{"l", "\[LessEqual]", "n"}], ",", 
          RowBox[{"l", "++"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"Which", "[", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{
              RowBox[{"segmentsArrNtildePr", "[", 
               RowBox[{"[", "1", "]"}], "]"}], "<=", 
              RowBox[{"nTildePr", "[", 
               RowBox[{"[", "l", "]"}], "]"}], "<", 
              RowBox[{"segmentsArrNtildePr", "[", 
               RowBox[{"[", "2", "]"}], "]"}]}], ",", "\[IndentingNewLine]", 
             RowBox[{"epsilonPtsLocal75", "=", 
              RowBox[{"Insert", "[", 
               RowBox[{"epsilonPtsLocal75", ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{"QprOrderedLocal", "[", 
                    RowBox[{"[", "l", "]"}], "]"}], "/", "100"}], "//", "N"}],
                   ",", 
                  RowBox[{"epsilonValuesOrdered", "[", 
                   RowBox[{"[", "l", "]"}], "]"}]}], "}"}], ",", 
                RowBox[{"-", "1"}]}], "]"}]}], ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"segmentsArrNtildePr", "[", 
               RowBox[{"[", "2", "]"}], "]"}], "<=", 
              RowBox[{"nTildePr", "[", 
               RowBox[{"[", "l", "]"}], "]"}], "<", 
              RowBox[{"segmentsArrNtildePr", "[", 
               RowBox[{"[", "3", "]"}], "]"}]}], ",", "\[IndentingNewLine]", 
             RowBox[{"epsilonPtsLocal80", "=", 
              RowBox[{"Insert", "[", 
               RowBox[{"epsilonPtsLocal80", ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{"QprOrderedLocal", "[", 
                    RowBox[{"[", "l", "]"}], "]"}], "/", "100"}], "//", "N"}],
                   ",", 
                  RowBox[{"epsilonValuesOrdered", "[", 
                   RowBox[{"[", "l", "]"}], "]"}]}], "}"}], ",", 
                RowBox[{"-", "1"}]}], "]"}]}], ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"segmentsArrNtildePr", "[", 
               RowBox[{"[", "3", "]"}], "]"}], "<=", 
              RowBox[{"nTildePr", "[", 
               RowBox[{"[", "l", "]"}], "]"}], "<", 
              RowBox[{"segmentsArrNtildePr", "[", 
               RowBox[{"[", "4", "]"}], "]"}]}], ",", "\[IndentingNewLine]", 
             RowBox[{"epsilonPtsLocal85", "=", 
              RowBox[{"Insert", "[", 
               RowBox[{"epsilonPtsLocal85", ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{"QprOrderedLocal", "[", 
                    RowBox[{"[", "l", "]"}], "]"}], "/", "100"}], "//", "N"}],
                   ",", 
                  RowBox[{"epsilonValuesOrdered", "[", 
                   RowBox[{"[", "l", "]"}], "]"}]}], "}"}], ",", 
                RowBox[{"-", "1"}]}], "]"}]}], ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"segmentsArrNtildePr", "[", 
               RowBox[{"[", "4", "]"}], "]"}], "<=", 
              RowBox[{"nTildePr", "[", 
               RowBox[{"[", "l", "]"}], "]"}], "<", 
              RowBox[{"segmentsArrNtildePr", "[", 
               RowBox[{"[", "5", "]"}], "]"}]}], ",", "\[IndentingNewLine]", 
             RowBox[{"epsilonPtsLocal90", "=", 
              RowBox[{"Insert", "[", 
               RowBox[{"epsilonPtsLocal90", ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{"QprOrderedLocal", "[", 
                    RowBox[{"[", "l", "]"}], "]"}], "/", "100"}], "//", "N"}],
                   ",", 
                  RowBox[{"epsilonValuesOrdered", "[", 
                   RowBox[{"[", "l", "]"}], "]"}]}], "}"}], ",", 
                RowBox[{"-", "1"}]}], "]"}]}], ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"segmentsArrNtildePr", "[", 
               RowBox[{"[", "5", "]"}], "]"}], "<=", 
              RowBox[{"nTildePr", "[", 
               RowBox[{"[", "l", "]"}], "]"}], "<", 
              RowBox[{"segmentsArrNtildePr", "[", 
               RowBox[{"[", "6", "]"}], "]"}]}], ",", "\[IndentingNewLine]", 
             RowBox[{"epsilonPtsLocal95", "=", 
              RowBox[{"Insert", "[", 
               RowBox[{"epsilonPtsLocal95", ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{"QprOrderedLocal", "[", 
                    RowBox[{"[", "l", "]"}], "]"}], "/", "100"}], "//", "N"}],
                   ",", 
                  RowBox[{"epsilonValuesOrdered", "[", 
                   RowBox[{"[", "l", "]"}], "]"}]}], "}"}], ",", 
                RowBox[{"-", "1"}]}], "]"}]}], ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"segmentsArrNtildePr", "[", 
               RowBox[{"[", "6", "]"}], "]"}], "<=", 
              RowBox[{"nTildePr", "[", 
               RowBox[{"[", "l", "]"}], "]"}], "<", 
              RowBox[{"segmentsArrNtildePr", "[", 
               RowBox[{"[", "7", "]"}], "]"}]}], ",", "\[IndentingNewLine]", 
             RowBox[{"epsilonPtsLocal100", "=", 
              RowBox[{"Insert", "[", 
               RowBox[{"epsilonPtsLocal100", ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{"QprOrderedLocal", "[", 
                    RowBox[{"[", "l", "]"}], "]"}], "/", "100"}], "//", "N"}],
                   ",", 
                  RowBox[{"epsilonValuesOrdered", "[", 
                   RowBox[{"[", "l", "]"}], "]"}]}], "}"}], ",", 
                RowBox[{"-", "1"}]}], "]"}]}], ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"segmentsArrNtildePr", "[", 
               RowBox[{"[", "7", "]"}], "]"}], "<=", 
              RowBox[{"nTildePr", "[", 
               RowBox[{"[", "l", "]"}], "]"}], "<", 
              RowBox[{"segmentsArrNtildePr", "[", 
               RowBox[{"[", "8", "]"}], "]"}]}], ",", "\[IndentingNewLine]", 
             RowBox[{"epsilonPtsLocal105", "=", 
              RowBox[{"Insert", "[", 
               RowBox[{"epsilonPtsLocal105", ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{"QprOrderedLocal", "[", 
                    RowBox[{"[", "l", "]"}], "]"}], "/", "100"}], "//", "N"}],
                   ",", 
                  RowBox[{"epsilonValuesOrdered", "[", 
                   RowBox[{"[", "l", "]"}], "]"}]}], "}"}], ",", 
                RowBox[{"-", "1"}]}], "]"}]}], ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"segmentsArrNtildePr", "[", 
               RowBox[{"[", "8", "]"}], "]"}], "<=", 
              RowBox[{"nTildePr", "[", 
               RowBox[{"[", "l", "]"}], "]"}], "<=", 
              RowBox[{"segmentsArrNtildePr", "[", 
               RowBox[{"[", "9", "]"}], "]"}]}], ",", "\[IndentingNewLine]", 
             RowBox[{"epsilonPtsLocal110", "=", 
              RowBox[{"Insert", "[", 
               RowBox[{"epsilonPtsLocal110", ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{"QprOrderedLocal", "[", 
                    RowBox[{"[", "l", "]"}], "]"}], "/", "100"}], "//", "N"}],
                   ",", 
                  RowBox[{"epsilonValuesOrdered", "[", 
                   RowBox[{"[", "l", "]"}], "]"}]}], "}"}], ",", 
                RowBox[{"-", "1"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}],
            ";", "\[IndentingNewLine]", 
           RowBox[{"etaPtsLocal", "=", 
            RowBox[{"Insert", "[", 
             RowBox[{"etaPtsLocal", ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"QprOrderedLocal", "[", 
                 RowBox[{"[", "l", "]"}], "]"}], ",", 
                RowBox[{"etaValuesOrdered", "[", 
                 RowBox[{"[", "l", "]"}], "]"}]}], "}"}], ",", 
              RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"NprPtsLocal", "=", 
            RowBox[{"Insert", "[", 
             RowBox[{"NprPtsLocal", ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"QprOrderedLocal", "[", 
                 RowBox[{"[", "l", "]"}], "]"}], ",", 
                RowBox[{"NprValuesOrdered", "[", 
                 RowBox[{"[", "l", "]"}], "]"}]}], "}"}], ",", 
              RowBox[{"-", "1"}]}], "]"}]}], ";"}]}], "\[IndentingNewLine]", 
         "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.833839493205986*^9, 3.8338395182283983`*^9}, {
   3.833863291765759*^9, 3.833863294330243*^9}, 3.834398818704488*^9, {
   3.8343989378205833`*^9, 3.8343991407009153`*^9}, {3.834399224288245*^9, 
   3.834399224451562*^9}, {3.834399294129751*^9, 3.834399300724783*^9}, {
   3.834399463643716*^9, 3.83439950642461*^9}, {3.834399542447529*^9, 
   3.834399552256192*^9}, {3.834399610980714*^9, 3.834399727104117*^9}, {
   3.83439990456668*^9, 3.8343999163306217`*^9}, {3.834399953579537*^9, 
   3.8343999743131647`*^9}, {3.83440018961595*^9, 3.834400217972324*^9}, {
   3.8344002503526773`*^9, 3.834400290291271*^9}, {3.834411770662476*^9, 
   3.8344117763467216`*^9}, {3.8344119475745573`*^9, 3.834411948817041*^9}, {
   3.834449981031715*^9, 3.834449998288206*^9}, {3.834456976191721*^9, 
   3.834456982336779*^9}, 3.834730623710759*^9, {3.834731729022936*^9, 
   3.834731736340847*^9}, {3.834732225607003*^9, 3.834732230995512*^9}, {
   3.8352314223231363`*^9, 3.8352314324149446`*^9}, {3.835243501094141*^9, 
   3.835243522975828*^9}, {3.8352435532120447`*^9, 3.8352435546841707`*^9}, {
   3.835244128439279*^9, 3.8352444292002087`*^9}, {3.835244461152319*^9, 
   3.8352447563954678`*^9}, {3.835244792018775*^9, 3.835244817041114*^9}, 
   3.835247788514529*^9, {3.835247820792983*^9, 3.83524790307166*^9}, {
   3.8352480355979977`*^9, 3.835248052521681*^9}, {3.835248126860508*^9, 
   3.835248133327703*^9}, {3.835248192541337*^9, 3.835248224780182*^9}, {
   3.835248572804798*^9, 3.835248594488842*^9}, {3.835249019424686*^9, 
   3.835249089253927*^9}, {3.835249150226222*^9, 3.835249265219501*^9}, {
   3.835251021067298*^9, 3.835251058902027*^9}, {3.8352511846847553`*^9, 
   3.835251194696754*^9}, {3.8352522956327972`*^9, 3.8352523291649303`*^9}, {
   3.835252369542788*^9, 3.835252370082728*^9}, {3.835252535292886*^9, 
   3.835252535676849*^9}, {3.835252590100194*^9, 3.835252601280854*^9}, {
   3.835252680206441*^9, 3.835252805616027*^9}, {3.835252923501154*^9, 
   3.835252923832055*^9}, {3.835252964265808*^9, 3.835252991273026*^9}, {
   3.8352533755853453`*^9, 3.835253378979059*^9}, 3.835253550642043*^9, {
   3.8352536163064537`*^9, 3.8352536167717943`*^9}, {3.835253667121601*^9, 
   3.835253674222828*^9}, {3.835253772307543*^9, 3.8352537727345963`*^9}, {
   3.835253820745776*^9, 3.835254006972805*^9}, 3.8352540379489813`*^9, {
   3.835254096942357*^9, 3.835254218754129*^9}, {3.835254302138012*^9, 
   3.8352543092496223`*^9}, {3.8352543433890038`*^9, 
   3.8352543569732037`*^9}, {3.835254388797439*^9, 3.83525438964788*^9}, {
   3.835274227605969*^9, 3.835274299223465*^9}, {3.8352743363586187`*^9, 
   3.8352743425318213`*^9}, {3.835274820292082*^9, 3.8352748208800783`*^9}, {
   3.8352749973911943`*^9, 3.835275051073709*^9}, {3.835275138103756*^9, 
   3.83527515612226*^9}, 3.835275283143392*^9, {3.8352753483922777`*^9, 
   3.835275368069984*^9}, {3.835276111212036*^9, 3.835276201666786*^9}, {
   3.835276233232086*^9, 3.835276244946137*^9}, 3.835276417004923*^9, {
   3.835276466888782*^9, 3.835276468562461*^9}, {3.835276818680709*^9, 
   3.83527682622581*^9}, {3.835276919468775*^9, 3.8352769251706047`*^9}, {
   3.83531062724058*^9, 3.8353106459238787`*^9}, {3.835313660188444*^9, 
   3.8353136622222137`*^9}, {3.83565392045944*^9, 3.835653996870886*^9}, {
   3.835654281413741*^9, 3.8356542941954813`*^9}, {3.835660702378962*^9, 
   3.835660705250326*^9}, {3.8356608129460707`*^9, 3.835660841363658*^9}, {
   3.835661093068565*^9, 3.8356611033509903`*^9}, {3.835661771307125*^9, 
   3.83566178103675*^9}, 3.8356623715025787`*^9, {3.83566241058956*^9, 
   3.835662422336706*^9}, 3.835664641797764*^9, 3.835665941588752*^9, {
   3.835665972871418*^9, 3.8356659752592773`*^9}, {3.835666497252092*^9, 
   3.8356664976877413`*^9}, {3.8356786331824636`*^9, 3.835678635104824*^9}, 
   3.835680127855309*^9, {3.835680670175041*^9, 3.835680702430773*^9}, {
   3.835680742510347*^9, 3.835680752287581*^9}, {3.835682463342*^9, 
   3.835682491378744*^9}, {3.835683718828394*^9, 3.835683719250965*^9}, {
   3.835683751150961*^9, 3.83568379070042*^9}, {3.835683838546083*^9, 
   3.8356838527070723`*^9}, {3.83568391542163*^9, 3.835683919939496*^9}, {
   3.835684314615615*^9, 3.83568431509846*^9}, 3.835684427695774*^9, {
   3.835836880015925*^9, 3.835836885651658*^9}, {3.8358375515167837`*^9, 
   3.8358375521199713`*^9}, {3.835837645583866*^9, 3.835837646019864*^9}, {
   3.835837689203473*^9, 3.835837696095825*^9}, {3.8358381816369963`*^9, 
   3.835838187622917*^9}, {3.835838237224203*^9, 3.835838259665184*^9}, {
   3.83585569644353*^9, 3.835855703132106*^9}, {3.835932503852252*^9, 
   3.83593257764301*^9}, {3.835932651244368*^9, 3.8359327621469812`*^9}, {
   3.835933049186161*^9, 3.835933100738495*^9}, {3.83593314745562*^9, 
   3.835933178226851*^9}, {3.836007674061513*^9, 3.8360077827065687`*^9}, {
   3.836007819368815*^9, 3.8360078271025553`*^9}, {3.836007878741467*^9, 
   3.836007879837934*^9}, {3.836008038515834*^9, 3.836008049423276*^9}, {
   3.836008364706318*^9, 3.836008414963407*^9}, {3.8360084598607607`*^9, 
   3.836008460274358*^9}, {3.8360085183785553`*^9, 3.83600887653314*^9}, {
   3.836008961448678*^9, 3.836009062100519*^9}, {3.83600913425439*^9, 
   3.8360091439268417`*^9}, {3.836009187493003*^9, 3.8360092027054377`*^9}, {
   3.836009241225812*^9, 3.836009351069772*^9}, {3.836009392096533*^9, 
   3.8360093925077*^9}, {3.836009581303608*^9, 3.836009581615025*^9}, {
   3.836010256825551*^9, 3.8360102734618397`*^9}, {3.836010304492353*^9, 
   3.836010311584988*^9}, {3.836011168219412*^9, 3.8360111761107883`*^9}, {
   3.836011211734582*^9, 3.8360112289414253`*^9}, {3.836011464548903*^9, 
   3.836011476764248*^9}, {3.836011519070134*^9, 3.836011765443646*^9}, {
   3.836011804749049*^9, 3.836011815204239*^9}, {3.836011956684808*^9, 
   3.836011982931525*^9}, {3.8360121466914577`*^9, 3.836012222979681*^9}, {
   3.836012306860548*^9, 3.836012314527287*^9}, {3.836018445958955*^9, 
   3.836018447261372*^9}, {3.836018495759347*^9, 3.836018531169051*^9}, {
   3.836018630464037*^9, 3.836018672503229*^9}, {3.836019026301712*^9, 
   3.836019030436796*^9}, {3.836019224939093*^9, 3.836019248443203*^9}, {
   3.836019286218149*^9, 3.8360192998433723`*^9}, {3.8360193807040358`*^9, 
   3.836019414317099*^9}, {3.836019675878359*^9, 3.836019699740754*^9}, 
   3.836019782009354*^9, {3.836019824493248*^9, 3.836019825572873*^9}, {
   3.836020248028686*^9, 3.8360202719910088`*^9}, {3.836020322612499*^9, 
   3.8360203429516563`*^9}, {3.8360204851945677`*^9, 3.836020491190756*^9}, {
   3.836020574602171*^9, 3.836020582776219*^9}, {3.8360206540364847`*^9, 
   3.836020654523591*^9}, {3.836020894458489*^9, 3.836020913990878*^9}, {
   3.836020944629553*^9, 3.8360209475765867`*^9}, {3.8360211657380733`*^9, 
   3.8360211707620993`*^9}, {3.8360219925424643`*^9, 3.836022045352044*^9}, {
   3.8360220996421413`*^9, 3.836022128185445*^9}, 3.8360222880140247`*^9, {
   3.8360224966984873`*^9, 3.836022526472342*^9}, {3.836022581975582*^9, 
   3.83602271753741*^9}, {3.83602278266051*^9, 3.836022799177175*^9}, 
   3.836022834806885*^9, {3.8360229436923733`*^9, 3.836022944084395*^9}, {
   3.836022974928051*^9, 3.8360229751298323`*^9}, {3.836023019284617*^9, 
   3.8360230939998503`*^9}, {3.836023147851112*^9, 3.836023151623027*^9}, {
   3.8360232891512337`*^9, 3.8360233427002296`*^9}, {3.836023440221571*^9, 
   3.8360234421187353`*^9}, {3.8360241319069138`*^9, 3.836024203456993*^9}, 
   3.836025689886207*^9, {3.836263206495879*^9, 3.8362632769501038`*^9}, {
   3.8362657968071136`*^9, 3.836265816504974*^9}, 3.836267967889345*^9, {
   3.836268573067512*^9, 3.8362685731133213`*^9}, {3.836268653017455*^9, 
   3.8362686965188723`*^9}, 3.836269150658471*^9, {3.836344429454927*^9, 
   3.836344443213428*^9}, {3.836345167087425*^9, 3.8363451681187677`*^9}, {
   3.836345236252705*^9, 3.836345410613662*^9}, {3.836345967189911*^9, 
   3.836345968213228*^9}, {3.8363473822210827`*^9, 3.8363473835206747`*^9}, {
   3.836458224611465*^9, 3.836458239909215*^9}, 3.836458398647983*^9, {
   3.836526758049642*^9, 3.836526829226637*^9}, 3.836527610581545*^9, 
   3.8365279454123163`*^9, {3.836528760836894*^9, 3.836528767768137*^9}, {
   3.83654519403959*^9, 3.8365451946031027`*^9}, {3.8365452453322783`*^9, 
   3.836545257202312*^9}, {3.836545306866928*^9, 3.836545360754356*^9}, {
   3.83654543798374*^9, 3.836545451180311*^9}, {3.836545497901847*^9, 
   3.836545538751733*^9}, {3.836545580413444*^9, 3.8365456146031647`*^9}, {
   3.836547357445443*^9, 3.836547625975397*^9}, {3.836547680186487*^9, 
   3.83654783805201*^9}, {3.836547872593059*^9, 3.836548093986553*^9}, {
   3.836548125762889*^9, 3.836548472730751*^9}, {3.836549788257819*^9, 
   3.8365497937101173`*^9}, {3.836549823760398*^9, 3.83654987676291*^9}, {
   3.836549918180812*^9, 3.8365499348643093`*^9}, {3.8365499836967173`*^9, 
   3.836550098427305*^9}, {3.836550371047244*^9, 3.8365504845752153`*^9}, {
   3.8366052225884457`*^9, 3.836605224320478*^9}, {3.836605306335928*^9, 
   3.836605312553203*^9}, {3.8368733679298477`*^9, 3.836873426082923*^9}, {
   3.836873470589201*^9, 3.8368735410524883`*^9}, {3.8368737870048647`*^9, 
   3.8368738678833933`*^9}, {3.836960131631165*^9, 3.836960178266467*^9}, {
   3.837154625416253*^9, 3.837154646888688*^9}, {3.837154707071843*^9, 
   3.837154751607766*^9}, {3.837154804958561*^9, 3.8371549614362288`*^9}, {
   3.837154992338441*^9, 3.8371550111758547`*^9}, {3.8371550813297*^9, 
   3.837155085317746*^9}, {3.837209115575959*^9, 3.837209116891695*^9}, {
   3.837209333969949*^9, 3.837209334192316*^9}, 3.837209374536048*^9, {
   3.837209511422958*^9, 3.837209513317237*^9}, {3.837228617734439*^9, 
   3.837228618207397*^9}, {3.8372286552482357`*^9, 3.83722869502379*^9}, {
   3.837228789655252*^9, 3.837228801309269*^9}, {3.837228882453032*^9, 
   3.837228930874423*^9}, {3.8372289633308067`*^9, 3.8372290153300333`*^9}, {
   3.837229047102466*^9, 3.8372291255258703`*^9}, {3.8372291577566*^9, 
   3.83722918199616*^9}, 3.837229222710875*^9, 3.837229348079515*^9, {
   3.837229393293227*^9, 3.837229395234943*^9}, {3.837229591095704*^9, 
   3.837229667092411*^9}, {3.837229720925168*^9, 3.837229762224677*^9}, {
   3.837229994204206*^9, 3.837230109159585*^9}, 3.8372304786072273`*^9, {
   3.837230863619996*^9, 3.8372308639473763`*^9}, {3.8372309090238953`*^9, 
   3.837230926549654*^9}, {3.837231024527379*^9, 3.837231024771098*^9}, {
   3.837231058863282*^9, 3.8372310681735687`*^9}, {3.8372313721471148`*^9, 
   3.837231385188273*^9}, {3.8372314471671*^9, 3.837231476585042*^9}, {
   3.837231630659758*^9, 3.837231683788156*^9}, {3.8372353249616632`*^9, 
   3.837235358772027*^9}, {3.837235454947062*^9, 3.837235465306151*^9}, {
   3.837235565697647*^9, 3.837235568995248*^9}, {3.83723802845072*^9, 
   3.837238032143669*^9}, {3.837238115733809*^9, 3.8372381286942253`*^9}, {
   3.837238244860815*^9, 3.837238279423513*^9}, {3.837238332363845*^9, 
   3.837238340396283*^9}, {3.837238564654579*^9, 3.83723864305236*^9}, {
   3.83723897069564*^9, 3.837239047899426*^9}, 3.837239080819503*^9, 
   3.837239135452142*^9, {3.8372394480104218`*^9, 3.8372396681770372`*^9}, {
   3.837239891770328*^9, 3.837239901252316*^9}, {3.837239947348377*^9, 
   3.837239967528544*^9}, {3.837240074922838*^9, 3.837240140680665*^9}, {
   3.837240213507799*^9, 3.837240370462285*^9}, {3.837240402917286*^9, 
   3.8372404591191883`*^9}, {3.8372411505402927`*^9, 3.837241295916609*^9}, {
   3.837241336957733*^9, 3.837241444905424*^9}, 3.837241485809822*^9, {
   3.837390967640871*^9, 3.837391002656742*^9}, {3.8373912124601297`*^9, 
   3.83739122094895*^9}, {3.837391582819785*^9, 3.837391673064727*^9}, {
   3.8373917061935577`*^9, 3.8373917064216623`*^9}, {3.837391752911003*^9, 
   3.837391771981802*^9}, {3.837391940007925*^9, 3.837391993648035*^9}, {
   3.837392142101104*^9, 3.83739214751374*^9}, {3.837392198332815*^9, 
   3.837392226790469*^9}, {3.837392311465575*^9, 3.837392325449691*^9}, {
   3.837392551169344*^9, 3.837392561378581*^9}, {3.837392667223489*^9, 
   3.837392872264546*^9}, {3.8373930555398684`*^9, 3.83739309448508*^9}, 
   3.8373936581671257`*^9, 3.837393744520969*^9, 3.8373983745147657`*^9, {
   3.8373988056440363`*^9, 3.837398846317917*^9}, {3.837399133204399*^9, 
   3.837399156112094*^9}, {3.837399224753272*^9, 3.8373992391647787`*^9}, {
   3.837401656012723*^9, 3.837401698771756*^9}, {3.8374715787673903`*^9, 
   3.837471606266583*^9}, {3.8374735986013603`*^9, 3.837473602806479*^9}, 
   3.837473679501546*^9, {3.837474074717676*^9, 3.8374742697206373`*^9}, {
   3.8374750261934547`*^9, 3.837475040089122*^9}, {3.837475087097373*^9, 
   3.837475103245186*^9}, {3.837475177589079*^9, 3.837475202833754*^9}, {
   3.837475423534029*^9, 3.83747553276833*^9}, {3.8374755844907103`*^9, 
   3.837475606502164*^9}, {3.837475663545113*^9, 3.837475692552607*^9}, 
   3.837476745210847*^9, {3.837476879768753*^9, 3.837476921761921*^9}, {
   3.837476953791746*^9, 3.837476979355659*^9}, 3.837477063037314*^9, {
   3.8374929452345943`*^9, 3.837492963855619*^9}, {3.837496488037191*^9, 
   3.837496587454584*^9}, {3.837496639853897*^9, 3.837496641677608*^9}, {
   3.837496709056697*^9, 3.837496792873027*^9}, {3.837496855567214*^9, 
   3.837496924020166*^9}, {3.837497065810114*^9, 3.837497334460669*^9}, {
   3.837497365757909*^9, 3.8374973830594893`*^9}, {3.837498578633149*^9, 
   3.837498690650488*^9}, {3.837498745205042*^9, 3.837498762997615*^9}, {
   3.83749881659191*^9, 3.8374988912334623`*^9}, {3.837499001884932*^9, 
   3.837499186315214*^9}, {3.8374992635382147`*^9, 3.837499267503532*^9}, {
   3.837499397859679*^9, 3.8374994343122*^9}, {3.837499928661772*^9, 
   3.837499954448142*^9}, {3.8375002037924023`*^9, 3.837500205697369*^9}, {
   3.837560066169373*^9, 3.837560084283229*^9}, {3.8375602070157413`*^9, 
   3.837560239525297*^9}, {3.837560281407014*^9, 3.837560366269713*^9}, 
   3.837560401611704*^9, {3.837560844798934*^9, 3.837560867440731*^9}, {
   3.837560949400455*^9, 3.837560999811795*^9}, 3.837561078927376*^9, {
   3.837561122193007*^9, 3.837561154185754*^9}, {3.837561561498514*^9, 
   3.837561593295414*^9}, {3.837561646167583*^9, 3.837561799235364*^9}, {
   3.8375618305487413`*^9, 3.837561846527877*^9}, {3.837561881783486*^9, 
   3.837561909607194*^9}, {3.837561946802809*^9, 3.837562002821929*^9}, {
   3.8375620368960867`*^9, 3.837562037516553*^9}, {3.837562073836151*^9, 
   3.83756207807452*^9}, {3.83756214622404*^9, 3.837562205022789*^9}, {
   3.8375622410818996`*^9, 3.837562257132306*^9}, {3.837562318971586*^9, 
   3.837562319434833*^9}, {3.837562631883769*^9, 3.837562696439477*^9}, {
   3.837562767105432*^9, 3.837562848586843*^9}, {3.837562916682537*^9, 
   3.837562962782515*^9}, {3.837563013860738*^9, 3.837563014257422*^9}, {
   3.837563047186298*^9, 3.837563047479364*^9}, {3.837563168497287*^9, 
   3.837563174140327*^9}, {3.83756323401265*^9, 3.837563277629101*^9}, {
   3.8375634709047403`*^9, 3.837563504686934*^9}, {3.837563570865102*^9, 
   3.837563583070064*^9}, {3.837564342182892*^9, 3.837564434457988*^9}, {
   3.8375644824691277`*^9, 3.837564511047398*^9}, {3.837566277196124*^9, 
   3.837566306060438*^9}, {3.837566340557116*^9, 3.837566344003956*^9}, {
   3.837566674471208*^9, 3.83756674097943*^9}, {3.837566774736403*^9, 
   3.83756677515274*^9}, {3.837566868252322*^9, 3.837566881717757*^9}, {
   3.8375669992717667`*^9, 3.837566999863985*^9}, {3.8375673203218927`*^9, 
   3.837567353305401*^9}, {3.837573566870743*^9, 3.8375736842409678`*^9}, {
   3.837573825570551*^9, 3.83757392497537*^9}, {3.837573967891881*^9, 
   3.837573997829227*^9}, {3.837574107693761*^9, 3.8375741494057083`*^9}, {
   3.8375743102478456`*^9, 3.8375743241857357`*^9}, {3.8375746875567207`*^9, 
   3.8375747266840143`*^9}, {3.837575014806821*^9, 3.83757501753341*^9}, {
   3.837576602030571*^9, 3.837576631222074*^9}, {3.837577874119214*^9, 
   3.8375778970637083`*^9}, {3.837578462987772*^9, 3.8375784649137983`*^9}, {
   3.837578895193419*^9, 3.837578932518299*^9}, {3.837578982067874*^9, 
   3.837578998374003*^9}, 3.8375792199337053`*^9, {3.837579414736907*^9, 
   3.837579460492988*^9}, {3.837579512797348*^9, 3.837579525011639*^9}, {
   3.837579723374407*^9, 3.837579729427286*^9}, 3.837579993859659*^9, {
   3.837580062159218*^9, 3.8375800624658833`*^9}, {3.837582913653023*^9, 
   3.8375829410487423`*^9}, 3.837641301734519*^9, {3.837644243876609*^9, 
   3.837644263852251*^9}, {3.837644315326178*^9, 3.837644320090129*^9}, {
   3.8376455626138887`*^9, 3.8376455700088673`*^9}, {3.837645941032247*^9, 
   3.837646023396982*^9}, {3.837646974890503*^9, 3.837646979841468*^9}, {
   3.837647241475127*^9, 3.83764726447869*^9}, {3.837647351394186*^9, 
   3.837647378083907*^9}, 3.8376475820025454`*^9, {3.837648223782735*^9, 
   3.8376482512737427`*^9}, {3.8376482853216343`*^9, 3.837648285600182*^9}, {
   3.837648428075836*^9, 3.837648436153243*^9}, {3.8376484766255627`*^9, 
   3.8376485006531277`*^9}, {3.8376486951224833`*^9, 
   3.8376487182136173`*^9}, {3.8376487502283773`*^9, 3.837648750597432*^9}, {
   3.837649153550571*^9, 3.83764924849622*^9}, {3.837649422595851*^9, 
   3.83764946859481*^9}, {3.837649549726664*^9, 3.8376495516480923`*^9}, {
   3.837649609914637*^9, 3.8376496395077744`*^9}, {3.837649684771487*^9, 
   3.8376497030564137`*^9}, {3.8376501277093773`*^9, 3.837650157975626*^9}, {
   3.837650205687273*^9, 3.837650210364869*^9}, {3.8376502845825768`*^9, 
   3.837650308075088*^9}, 3.8376503457281027`*^9, {3.83765039748096*^9, 
   3.837650400122457*^9}, {3.837650481720724*^9, 3.837650497988895*^9}, {
   3.8376515652879353`*^9, 3.8376516110796013`*^9}, {3.837651650306068*^9, 
   3.837651688812894*^9}, {3.837651762105445*^9, 3.837651765412462*^9}, 
   3.83765181057019*^9, {3.837652991310032*^9, 3.837653023378974*^9}, 
   3.837660479588558*^9, {3.837660785217237*^9, 3.8376608429584837`*^9}, {
   3.837660876187458*^9, 3.83766091357732*^9}, {3.837660954978818*^9, 
   3.837660961772414*^9}, {3.8376610021237698`*^9, 3.837661018967175*^9}, {
   3.837661052346332*^9, 3.837661147526441*^9}, {3.837661192660767*^9, 
   3.837661196515141*^9}, {3.837661670769843*^9, 3.837661705519517*^9}, {
   3.83766178052032*^9, 3.837661801291198*^9}, {3.837661851996696*^9, 
   3.837661878071203*^9}, {3.8376619359028807`*^9, 3.837661939140059*^9}, {
   3.837662262544517*^9, 3.837662303187099*^9}, {3.8376627673737583`*^9, 
   3.837662782471882*^9}, {3.8376628371752987`*^9, 3.83766287017968*^9}, {
   3.837663476756439*^9, 3.837663646231029*^9}, {3.837664203108263*^9, 
   3.837664245319191*^9}, 3.837664279962701*^9, {3.837665174451652*^9, 
   3.837665191671434*^9}, {3.837665503397172*^9, 3.83766550954627*^9}, 
   3.837665991194821*^9, {3.837666208871464*^9, 3.8376662526195498`*^9}, {
   3.8376663040529127`*^9, 3.837666315264625*^9}, {3.8376669444221487`*^9, 
   3.8376669745441523`*^9}, {3.837667444463002*^9, 3.837667451832274*^9}, 
   3.837668654991153*^9, {3.837668716709777*^9, 3.837668730450848*^9}, {
   3.8376687819352703`*^9, 3.837668956646535*^9}, {3.837669151438993*^9, 
   3.837669164548629*^9}, 3.837669230830832*^9, {3.837669438216185*^9, 
   3.837669527557273*^9}, 3.837669646311844*^9, {3.8376697208748093`*^9, 
   3.837669837625902*^9}, {3.837669973491681*^9, 3.837669995478385*^9}, {
   3.837670044635008*^9, 3.8376700483191233`*^9}, {3.837670083902625*^9, 
   3.837670099173471*^9}, {3.837670144164006*^9, 3.837670182900689*^9}, {
   3.8376703341626472`*^9, 3.83767033469503*^9}, {3.837670654607662*^9, 
   3.837670683019223*^9}, {3.83767071628157*^9, 3.837670738759605*^9}, {
   3.837670814323205*^9, 3.837670816469335*^9}, {3.8376709810977993`*^9, 
   3.837671048773136*^9}, 3.8376727211394167`*^9, {3.8376729425792007`*^9, 
   3.8376729663588743`*^9}, 3.837673382563663*^9, 3.837673597945999*^9, {
   3.837737814943427*^9, 3.837737818846463*^9}, {3.8377378627549133`*^9, 
   3.837737871094882*^9}, 3.837738166069162*^9, {3.8377381969159613`*^9, 
   3.8377382840502567`*^9}, {3.837738433015785*^9, 3.837738516088107*^9}, {
   3.837738546284341*^9, 3.837738617460805*^9}, 3.8377387152701683`*^9, {
   3.837738773052423*^9, 3.837738774750869*^9}, {3.8377389663801327`*^9, 
   3.837739016695334*^9}, {3.837739063794932*^9, 3.837739064448421*^9}, {
   3.837739129815804*^9, 3.837739141536111*^9}, {3.8377392010474453`*^9, 
   3.837739235605357*^9}, {3.837739334018855*^9, 3.8377393346337433`*^9}, 
   3.8377394132822*^9, {3.8377394661088257`*^9, 3.8377394938680143`*^9}, {
   3.837739886665763*^9, 3.8377399124877787`*^9}, {3.837740075043705*^9, 
   3.8377400760317287`*^9}, {3.837740116541061*^9, 3.837740116927664*^9}, {
   3.837740248423485*^9, 3.837740248820478*^9}, {3.8377457037794333`*^9, 
   3.837745804354154*^9}, {3.837745864882803*^9, 3.837745873821917*^9}, {
   3.83774591276585*^9, 3.837745947745102*^9}, {3.837745997928269*^9, 
   3.837746022179537*^9}, 3.837746253181549*^9, {3.8377463689208508`*^9, 
   3.837746372587039*^9}, {3.837746517442979*^9, 3.837746525357251*^9}, {
   3.837747019813323*^9, 3.8377471496969*^9}, {3.837747229133157*^9, 
   3.837747229572205*^9}, {3.837747352348919*^9, 3.837747517389917*^9}, {
   3.8377475707406263`*^9, 3.837747592312063*^9}, {3.837747718167116*^9, 
   3.8377477221359587`*^9}, {3.837747773256651*^9, 3.837747832877048*^9}, 
   3.83774805422936*^9, {3.8377481385114*^9, 3.837748220137299*^9}, {
   3.837748411047723*^9, 3.8377484177712717`*^9}, 3.837748574047625*^9, {
   3.83774998812057*^9, 3.837750187098761*^9}, {3.837750233187477*^9, 
   3.8377502946148376`*^9}, {3.83775037143491*^9, 3.837750399421661*^9}, {
   3.8377504389773703`*^9, 3.8377504985584803`*^9}, {3.837750605735598*^9, 
   3.8377506105154953`*^9}, {3.837750655876954*^9, 3.8377508119613132`*^9}, {
   3.8377514173711977`*^9, 3.837751424961815*^9}, {3.837751704327799*^9, 
   3.837751723862287*^9}, {3.83775185741717*^9, 3.837751938657701*^9}, {
   3.837752220224464*^9, 3.8377522833961077`*^9}, 3.8377550911073627`*^9, {
   3.837755621260462*^9, 3.837755681546261*^9}, {3.8377564074916353`*^9, 
   3.837756422845236*^9}, 3.837756645393723*^9, 3.8377567312533083`*^9, {
   3.837757120308916*^9, 3.837757138838426*^9}, 3.8377572801796713`*^9, {
   3.8377576711595993`*^9, 3.8377576733662853`*^9}, {3.8377579735008993`*^9, 
   3.837757976749959*^9}, {3.837758096770134*^9, 3.837758100981131*^9}, 
   3.837758903900797*^9, {3.837819091888008*^9, 3.8378190988482847`*^9}, {
   3.8378195024943047`*^9, 3.8378195740644693`*^9}, {3.837819619408752*^9, 
   3.83781963566638*^9}, {3.837819676552471*^9, 3.837819881269416*^9}, 
   3.837820276952959*^9, {3.837820594694029*^9, 3.8378206003790903`*^9}, {
   3.837820708821253*^9, 3.8378207092158833`*^9}, {3.8378207883236856`*^9, 
   3.837820793693162*^9}, {3.837823156097619*^9, 3.83782315691538*^9}, {
   3.837823919085251*^9, 3.837823964298809*^9}, {3.8378257868666267`*^9, 
   3.837825787424062*^9}, {3.837826010560348*^9, 3.837826020284902*^9}, {
   3.83784665887726*^9, 3.8378466589604197`*^9}, {3.837849296608383*^9, 
   3.837849319759736*^9}, {3.8378493856657333`*^9, 3.8378494032930326`*^9}, {
   3.83784968281476*^9, 3.837849824151061*^9}, 3.837862789552936*^9, {
   3.8378628241966543`*^9, 3.8378629019325447`*^9}, {3.8378649264610243`*^9, 
   3.8378649402142763`*^9}, {3.837865749823204*^9, 3.8378657512448473`*^9}, {
   3.8378659825567913`*^9, 3.8378660935187597`*^9}, {3.837866128242906*^9, 
   3.837866222369916*^9}, 3.8378664056390543`*^9, {3.8378664739547577`*^9, 
   3.837866549129547*^9}, {3.837866736515435*^9, 3.837866755792533*^9}, {
   3.837866928237344*^9, 3.837866936024868*^9}, 3.837867098728279*^9, {
   3.837867297672886*^9, 3.837867339825904*^9}, 3.837867601107828*^9, {
   3.8378681892202797`*^9, 3.8378681913480663`*^9}, {3.837919728650012*^9, 
   3.8379197505291243`*^9}, 3.837919896936644*^9, {3.837924270394493*^9, 
   3.8379243251969976`*^9}, {3.837924360123293*^9, 3.837924366941505*^9}, {
   3.8379273110322027`*^9, 3.83792734626525*^9}, {3.8379504249918613`*^9, 
   3.837950653743821*^9}, {3.838010215652485*^9, 3.838010216009535*^9}, {
   3.838191304791923*^9, 3.8381913456194687`*^9}, {3.838191394155566*^9, 
   3.8381913965719023`*^9}, {3.838191513038307*^9, 3.838191566487656*^9}, {
   3.838384153238577*^9, 3.8383841968265343`*^9}, {3.8383846657750893`*^9, 
   3.8383846874129963`*^9}, 3.838385573569625*^9, {3.838385954738084*^9, 
   3.838385983056926*^9}, {3.838386402896111*^9, 3.838386428769718*^9}, {
   3.838386932198263*^9, 3.838386932696327*^9}, 3.838387475227215*^9, {
   3.838418989154402*^9, 3.8384191606588583`*^9}, 3.838419379467656*^9, {
   3.8384194666954536`*^9, 3.838419484480877*^9}, {3.8384198080212507`*^9, 
   3.8384198198892317`*^9}, 3.838422210281753*^9, {3.83842228019353*^9, 
   3.838422388115568*^9}, {3.8384226934175777`*^9, 3.838422836594818*^9}, {
   3.838422924982263*^9, 3.838423073508422*^9}, {3.8384231290757113`*^9, 
   3.838423141159636*^9}, {3.838423213308358*^9, 3.838423356211687*^9}, {
   3.8384234275648813`*^9, 3.83842344287675*^9}, {3.838423477967146*^9, 
   3.838423512184676*^9}, {3.83842356161572*^9, 3.838423624833232*^9}, {
   3.8384236773664303`*^9, 3.83842368370057*^9}, {3.838423733834104*^9, 
   3.838423749602597*^9}, {3.838434904120228*^9, 3.838434906945869*^9}, {
   3.838434941079197*^9, 3.838434971109489*^9}, {3.8384350043094263`*^9, 
   3.838435052661948*^9}, {3.838435110377449*^9, 3.838435117734543*^9}, {
   3.838435147830133*^9, 3.8384351481718397`*^9}, {3.838435190380899*^9, 
   3.8384352167324333`*^9}, {3.838435255223626*^9, 3.8384352728640003`*^9}, {
   3.838435371265972*^9, 3.838435382428911*^9}, {3.838435498794599*^9, 
   3.838435563380707*^9}, 3.838435596990348*^9, 3.838435669110887*^9, 
   3.8384357127349567`*^9, {3.83843581270557*^9, 3.8384358198550873`*^9}, {
   3.8384358651764917`*^9, 3.838435865587481*^9}, {3.838435968992651*^9, 
   3.8384359784229393`*^9}, {3.8384361215077667`*^9, 3.838436127255228*^9}, {
   3.8384361791746607`*^9, 3.838436182889777*^9}, {3.838436254781946*^9, 
   3.83843625573658*^9}, {3.838436342974943*^9, 3.8384363781687613`*^9}, {
   3.8384369052154408`*^9, 3.838436913325877*^9}, {3.838466468460991*^9, 
   3.838466523113543*^9}, {3.838466819736125*^9, 3.838466821925528*^9}, {
   3.838468368595202*^9, 3.8384683718133507`*^9}, {3.8384686725865307`*^9, 
   3.838468684564176*^9}, {3.838468925356174*^9, 3.838468928817462*^9}, {
   3.838469419550765*^9, 3.8384694214251947`*^9}, {3.838469478285654*^9, 
   3.838469511530113*^9}, {3.838469875184376*^9, 3.838469875580998*^9}, {
   3.838470601073298*^9, 3.8384706044088087`*^9}, {3.8384708495344667`*^9, 
   3.8384708501010447`*^9}, {3.838471038378255*^9, 3.838471041384413*^9}, {
   3.838471277953751*^9, 3.838471287598339*^9}, {3.838472503820592*^9, 
   3.8384725049509773`*^9}, {3.83847280947441*^9, 3.838472823979974*^9}, {
   3.8384731838099003`*^9, 3.838473192213497*^9}, {3.838473525297998*^9, 
   3.838473534390395*^9}, {3.8384737166244297`*^9, 3.838473752717042*^9}, {
   3.838473950564763*^9, 3.838473986466832*^9}, {3.83847411922561*^9, 
   3.838474188277557*^9}, {3.838474232173473*^9, 3.838474235989621*^9}, {
   3.8384743051262617`*^9, 3.838474347671332*^9}, {3.838475980285111*^9, 
   3.838476017762691*^9}, {3.8385372131808577`*^9, 3.8385372427206373`*^9}, {
   3.83853727710382*^9, 3.838537277453718*^9}, {3.838537308415031*^9, 
   3.838537333792123*^9}, {3.838537405357009*^9, 3.838537430647072*^9}, {
   3.838537499434482*^9, 3.8385374996257753`*^9}, {3.8385375527410088`*^9, 
   3.838537600672185*^9}, 3.838538319832426*^9, {3.838538370975363*^9, 
   3.83853837131404*^9}, {3.8385384107532167`*^9, 3.838538410962961*^9}, {
   3.838538463274343*^9, 3.8385384653571568`*^9}, {3.838539541653912*^9, 
   3.838539544728848*^9}, {3.838539665883546*^9, 3.838539666156241*^9}, {
   3.838539897293477*^9, 3.838539899461506*^9}, 3.838539972038188*^9, {
   3.838541465018859*^9, 3.8385414656244173`*^9}, 3.8385415202707376`*^9, {
   3.838542106228551*^9, 3.8385421064657993`*^9}, {3.838542185812833*^9, 
   3.8385422128620234`*^9}, {3.838542275763865*^9, 3.83854227689272*^9}, {
   3.838542350713262*^9, 3.838542394287929*^9}, {3.838542504655208*^9, 
   3.8385425049715433`*^9}, 3.83854258311343*^9, {3.838542618186141*^9, 
   3.838542618406637*^9}, {3.838542765277207*^9, 3.838542775831176*^9}, {
   3.838542862266543*^9, 3.838542862881926*^9}, {3.838542959047782*^9, 
   3.838542960232986*^9}, {3.838543013402817*^9, 3.838543017780167*^9}, {
   3.838543068758703*^9, 3.838543087342367*^9}, {3.8385431914994793`*^9, 
   3.838543228303534*^9}, {3.838543373361862*^9, 3.8385433755657597`*^9}, {
   3.838543476976335*^9, 3.838543477136978*^9}, {3.8385438443672447`*^9, 
   3.838543879903447*^9}, {3.8385443202080917`*^9, 3.838544369323736*^9}, {
   3.838544577611446*^9, 3.838544604563451*^9}, {3.838555970631568*^9, 
   3.838555990605454*^9}, {3.8385567245225163`*^9, 3.838556741585704*^9}, {
   3.838557009326408*^9, 3.8385570425178547`*^9}, {3.838557128465518*^9, 
   3.838557144007285*^9}, 3.838557454768862*^9, {3.838557597398815*^9, 
   3.838557605176361*^9}, {3.83855765036337*^9, 3.8385576850155497`*^9}, {
   3.838557762373111*^9, 3.838557763694062*^9}, {3.8385578375745707`*^9, 
   3.838557838068021*^9}, {3.838557927015746*^9, 3.8385579354942102`*^9}, {
   3.8385582473859797`*^9, 3.8385582482682877`*^9}, {3.8385584299271097`*^9, 
   3.838558491888597*^9}, 3.838558576569759*^9, {3.838558614347661*^9, 
   3.838558638132785*^9}, {3.838558852589591*^9, 3.838558857960991*^9}, {
   3.838558912606661*^9, 3.838558912981455*^9}, {3.8385589753523483`*^9, 
   3.8385590168773813`*^9}, 3.838559119179037*^9, {3.8385596912538357`*^9, 
   3.838559822881794*^9}, {3.8385598613839684`*^9, 3.838559893320346*^9}, {
   3.838559963901073*^9, 3.838559973953369*^9}, {3.8385610124564323`*^9, 
   3.8385610147900753`*^9}, 3.8385610867194757`*^9, {3.838562245928011*^9, 
   3.8385622463224583`*^9}, {3.838562353039048*^9, 3.838562379016692*^9}, {
   3.838562414849185*^9, 3.838562436953291*^9}, {3.838562679582756*^9, 
   3.8385627048639393`*^9}, {3.838562776430822*^9, 3.838562784312867*^9}, {
   3.83856292285585*^9, 3.838562923215399*^9}, {3.8385630339006853`*^9, 
   3.838563044783942*^9}, {3.838563113603393*^9, 3.838563121282104*^9}, {
   3.8385635333277893`*^9, 3.8385635336532307`*^9}, {3.8386026863517036`*^9, 
   3.838602789701619*^9}, {3.838602910264051*^9, 3.838602910837418*^9}, {
   3.838602967685424*^9, 3.838602969268856*^9}, {3.838603063777323*^9, 
   3.838603106320911*^9}, {3.838603137320703*^9, 3.838603143588249*^9}, {
   3.838603263553267*^9, 3.838603283605988*^9}, {3.83860335212306*^9, 
   3.838603372257491*^9}, {3.838603413550474*^9, 3.838603540661188*^9}, {
   3.838603623187924*^9, 3.838603772589061*^9}, {3.8386038098506937`*^9, 
   3.838603966466745*^9}, {3.838604056275257*^9, 3.838604095744979*^9}, {
   3.83860412784977*^9, 3.838604129084313*^9}, {3.838604165212349*^9, 
   3.838604214653366*^9}, {3.838604258881419*^9, 3.838604260857242*^9}, {
   3.838604291858199*^9, 3.838604320926339*^9}, {3.8386044057343693`*^9, 
   3.838604415715592*^9}, {3.8386044798589087`*^9, 3.838604493517123*^9}, 
   3.838604561110669*^9, {3.838604597531444*^9, 3.838604666979401*^9}, {
   3.8386047270991364`*^9, 3.8386047379404507`*^9}, {3.838604931544874*^9, 
   3.8386049331580544`*^9}, {3.838605030397634*^9, 3.838605049225979*^9}, {
   3.838605108772964*^9, 3.8386051371805763`*^9}, {3.838605205048163*^9, 
   3.838605335353565*^9}, {3.8386053772519207`*^9, 3.838605407300868*^9}, {
   3.8386054612631407`*^9, 3.838605478859453*^9}, {3.8386055846173697`*^9, 
   3.838605612475482*^9}, {3.838605647184482*^9, 3.838605650678385*^9}, {
   3.838605689553135*^9, 3.838605744124016*^9}, {3.838605813982691*^9, 
   3.8386061772729588`*^9}, {3.838606255494746*^9, 3.838606323006529*^9}, {
   3.838606434041295*^9, 3.838606456513567*^9}, {3.838606509982853*^9, 
   3.838606512938238*^9}, {3.838606544672812*^9, 3.838606570156604*^9}, {
   3.8386247493635387`*^9, 3.838624792910294*^9}, {3.838625138785927*^9, 
   3.8386251390687523`*^9}, {3.838625302649328*^9, 3.83862530363435*^9}, {
   3.838677822249209*^9, 3.838677848852581*^9}, {3.838677932148161*^9, 
   3.83867794789502*^9}, {3.838678125070725*^9, 3.838678183540864*^9}, {
   3.838678232853365*^9, 3.838678272012005*^9}, {3.838678438021666*^9, 
   3.838678439208797*^9}, {3.8386784988484592`*^9, 3.838678531369321*^9}, {
   3.838678836464569*^9, 3.838678865981703*^9}, {3.838678910067627*^9, 
   3.83867900084584*^9}, {3.8386790741678953`*^9, 3.838679153460888*^9}, {
   3.838680577417335*^9, 3.838680613524315*^9}, {3.838680655136876*^9, 
   3.8386807832693377`*^9}, {3.8386808277419157`*^9, 3.838680886360942*^9}, {
   3.8386809173726273`*^9, 3.8386809575305367`*^9}, {3.838680989620434*^9, 
   3.8386810312499743`*^9}, {3.838681101350803*^9, 3.83868111027396*^9}, {
   3.838684480139721*^9, 3.838684486607913*^9}, {3.838684623772243*^9, 
   3.838684625684514*^9}, {3.838684693472013*^9, 3.838684697200698*^9}, {
   3.838684977998254*^9, 3.838685029091454*^9}, {3.838685430738303*^9, 
   3.8386855069822483`*^9}, {3.838685541443508*^9, 3.838685571836101*^9}, {
   3.8386860099591637`*^9, 3.838686010390626*^9}, {3.8386860719407663`*^9, 
   3.838686092426311*^9}, {3.838686126807235*^9, 3.8386861437054453`*^9}, {
   3.8386861756779613`*^9, 3.838686211737644*^9}, {3.838686296199236*^9, 
   3.8386863248456783`*^9}, 3.838686367756645*^9, {3.838686426250277*^9, 
   3.838686426511755*^9}, {3.838686532327136*^9, 3.8386865326369143`*^9}, {
   3.838686682183873*^9, 3.838686771192975*^9}, {3.838686840357897*^9, 
   3.838686866507395*^9}, {3.83868719306537*^9, 3.8386872142288446`*^9}, {
   3.838687253181778*^9, 3.838687307398417*^9}, {3.838687361090843*^9, 
   3.838687498074332*^9}, {3.838687535131731*^9, 3.838687582677977*^9}, {
   3.838687617319737*^9, 3.838687625190721*^9}, {3.838687657742193*^9, 
   3.838687660220673*^9}, {3.838687743150394*^9, 3.8386878503459682`*^9}, {
   3.838687894921286*^9, 3.83868791972046*^9}, {3.838688178451125*^9, 
   3.838688208672784*^9}, {3.838688280453184*^9, 3.8386882877484837`*^9}, {
   3.8386883522659197`*^9, 3.838688768805636*^9}, {3.838688932356265*^9, 
   3.838688942883847*^9}, {3.838689227830083*^9, 3.838689237847543*^9}, {
   3.838689294390616*^9, 3.8386892983700523`*^9}, {3.838689988140815*^9, 
   3.838690083341045*^9}, {3.838690126987914*^9, 3.838690155760442*^9}, {
   3.838690195349339*^9, 3.838690211518601*^9}, {3.838690262857539*^9, 
   3.838690296761456*^9}, {3.838690338725431*^9, 3.838690339051681*^9}, {
   3.83869037040551*^9, 3.838690496874919*^9}, {3.838690529168737*^9, 
   3.8386906856157722`*^9}, {3.838696625723258*^9, 3.838696639495913*^9}, {
   3.838696687244191*^9, 3.838696693227029*^9}, {3.8386967753052597`*^9, 
   3.83869677731491*^9}, {3.8386968195610037`*^9, 3.838696826113885*^9}, {
   3.838697665702351*^9, 3.838697680220004*^9}, {3.838697735532461*^9, 
   3.838697783279215*^9}, 3.8386978298687153`*^9, {3.838697868830414*^9, 
   3.838697870232504*^9}, {3.838697938760516*^9, 3.8386979446216183`*^9}, {
   3.8386979856134243`*^9, 3.83869803835399*^9}, {3.83869808080168*^9, 
   3.838698270275858*^9}, {3.838698545937299*^9, 3.838698549635482*^9}, {
   3.8386986071553173`*^9, 3.8386988012711906`*^9}, {3.8386988315948563`*^9, 
   3.838698834730378*^9}, {3.838699065003084*^9, 3.838699164417437*^9}, 
   3.838699195052601*^9, {3.838699227255846*^9, 3.8386993791970882`*^9}, {
   3.838699409609065*^9, 3.838699653115484*^9}, {3.8386997727924213`*^9, 
   3.838699786561841*^9}, 3.838699881193061*^9, {3.838699925737144*^9, 
   3.838699927055675*^9}, {3.838699992698104*^9, 3.8387000249143543`*^9}, 
   3.838700067324142*^9, {3.838700103362378*^9, 3.838700123360495*^9}, {
   3.838700257998582*^9, 3.838700266409403*^9}, {3.838700326670426*^9, 
   3.83870036125665*^9}, {3.838700588661778*^9, 3.838700627452567*^9}, {
   3.838701239008361*^9, 3.838701253039907*^9}, {3.838701284736939*^9, 
   3.838701427431632*^9}, {3.8387014707208014`*^9, 3.838701543656611*^9}, {
   3.838701581322319*^9, 3.83870179069738*^9}, {3.838701963603265*^9, 
   3.838702070329282*^9}, {3.838702139566119*^9, 3.838702182887089*^9}, {
   3.838702230002623*^9, 3.8387022410315847`*^9}, {3.8387023536290703`*^9, 
   3.8387023624426928`*^9}, {3.83870274409424*^9, 3.8387027535039387`*^9}, {
   3.838702796047392*^9, 3.838702796424943*^9}, {3.838702837790609*^9, 
   3.83870285747586*^9}, {3.8387030512545757`*^9, 3.8387030749594393`*^9}, {
   3.8387031357715073`*^9, 3.8387033364440937`*^9}, {3.8387034149991503`*^9, 
   3.838703442464978*^9}, {3.838703483661068*^9, 3.838703523444418*^9}, {
   3.8387035654213467`*^9, 3.8387036263287973`*^9}, {3.838703686442952*^9, 
   3.8387037345162897`*^9}, {3.8387044224412413`*^9, 3.838704427832819*^9}, {
   3.838704507883168*^9, 3.838704512705662*^9}, {3.83870474149675*^9, 
   3.838704743457341*^9}, {3.838704991983336*^9, 3.838705004706971*^9}, {
   3.838705128414116*^9, 3.838705192312415*^9}, {3.838705311426455*^9, 
   3.838705367055561*^9}, 3.838705553880747*^9, {3.838705596729628*^9, 
   3.838705652381419*^9}, {3.838705736349167*^9, 3.838705764155037*^9}, {
   3.838705847995411*^9, 3.838705850275015*^9}, {3.8387059440120153`*^9, 
   3.838706018686914*^9}, {3.8387060600827913`*^9, 3.8387060873573627`*^9}, {
   3.838706553291918*^9, 3.8387065691545563`*^9}, {3.838706740578936*^9, 
   3.8387067493841476`*^9}, {3.838706817574626*^9, 3.8387068194420424`*^9}, {
   3.838707231795505*^9, 3.838707246657694*^9}, {3.8387077437860107`*^9, 
   3.838707995241921*^9}, 3.838708348471511*^9, {3.838708503306192*^9, 
   3.838708593482885*^9}, {3.838709223517788*^9, 3.838709230446783*^9}, {
   3.838709275845433*^9, 3.838709468152566*^9}, {3.838709709496484*^9, 
   3.838709730783499*^9}, {3.838709878203515*^9, 3.83870988355305*^9}, {
   3.8387099695576363`*^9, 3.838709970244566*^9}, {3.8387100141859818`*^9, 
   3.838710092098661*^9}, {3.83871013909587*^9, 3.838710150809291*^9}, {
   3.8387101972071533`*^9, 3.838710203200926*^9}, {3.838710237041861*^9, 
   3.838710243170122*^9}, {3.838710285446559*^9, 3.8387102902796507`*^9}, 
   3.838763881454843*^9, {3.838763940997299*^9, 3.838763974059745*^9}, {
   3.838764005286216*^9, 3.8387640269893093`*^9}, {3.8387643041823997`*^9, 
   3.8387643255210247`*^9}, {3.838764376664358*^9, 3.838764399673526*^9}, {
   3.838764464182838*^9, 3.838764467853589*^9}, {3.838764625560899*^9, 
   3.838764857004793*^9}, {3.8387649037364063`*^9, 3.8387649427306004`*^9}, {
   3.8387649776527567`*^9, 3.838764982949638*^9}, {3.8387654175028267`*^9, 
   3.838765464655072*^9}, {3.838767739045517*^9, 3.838767754840414*^9}, {
   3.838767832361825*^9, 3.83876786207628*^9}, {3.838767917904964*^9, 
   3.838768117189802*^9}, {3.838768185707386*^9, 3.8387682300284033`*^9}, 
   3.838768376888822*^9, {3.838768424811109*^9, 3.8387684337806473`*^9}, {
   3.838768531905786*^9, 3.83876853631628*^9}, {3.838768607165193*^9, 
   3.83876861119578*^9}, {3.838769174621683*^9, 3.83876922643167*^9}, {
   3.838769298315637*^9, 3.8387693079279013`*^9}, {3.838770063992536*^9, 
   3.838770115671927*^9}, {3.838787413087639*^9, 3.838787467554728*^9}, {
   3.8387874977442007`*^9, 3.8387875041671343`*^9}, 3.838788570670274*^9, {
   3.838789027267064*^9, 3.8387890413571*^9}, {3.838789084964181*^9, 
   3.838789116181723*^9}, {3.838789173684175*^9, 3.838789185652278*^9}, {
   3.8387933334104023`*^9, 3.838793361829035*^9}, {3.83879341955779*^9, 
   3.8387934963234787`*^9}, {3.838793528337577*^9, 3.838793531239209*^9}, {
   3.838794309155081*^9, 3.83879431058435*^9}, {3.838850550852228*^9, 
   3.838850551581311*^9}, {3.838850732338025*^9, 3.838850736543762*^9}, {
   3.838850832765925*^9, 3.8388509136909313`*^9}, {3.838850949635407*^9, 
   3.838850986158245*^9}, 3.8388510367625732`*^9, {3.838851181966907*^9, 
   3.838851182341848*^9}, 3.8388591700497303`*^9, {3.838859260399749*^9, 
   3.838859282536284*^9}, {3.838859325737174*^9, 3.8388593387950363`*^9}, {
   3.83886983929431*^9, 3.838869839683364*^9}, {3.838870224903737*^9, 
   3.838870279518409*^9}, {3.838870328895893*^9, 3.8388703598956013`*^9}, {
   3.838874719035657*^9, 3.838874830318263*^9}, {3.838874867976408*^9, 
   3.838874984975048*^9}, {3.838875142109214*^9, 3.838875154343362*^9}, {
   3.838875496417761*^9, 3.838875716913815*^9}, {3.838875764583789*^9, 
   3.838875831689308*^9}, {3.83887589622692*^9, 3.838876094263033*^9}, {
   3.838876319718423*^9, 3.83887632347897*^9}, 3.838876522169958*^9, {
   3.838879223277856*^9, 3.838879234888646*^9}, 3.838879360444058*^9, 
   3.8388798255139627`*^9, 3.838879881826253*^9, {3.83893944134634*^9, 
   3.838939483828529*^9}, {3.838939527983706*^9, 3.8389395403524847`*^9}, {
   3.838939600739951*^9, 3.838939739831263*^9}, {3.8389398322440243`*^9, 
   3.8389398430165863`*^9}, {3.8392130682850027`*^9, 
   3.8392130684643583`*^9}, {3.8392221123685102`*^9, 3.839222126720152*^9}, {
   3.839222395790007*^9, 3.839222401677079*^9}, {3.839222593535598*^9, 
   3.839222609152964*^9}, {3.839226122038864*^9, 3.839226150768915*^9}, {
   3.839226191573227*^9, 3.8392262176327457`*^9}, 3.839226251831542*^9, {
   3.839226300923286*^9, 3.8392263192841597`*^9}, {3.839226566331192*^9, 
   3.8392269019723177`*^9}, {3.839226986369869*^9, 3.839227096334178*^9}, {
   3.8392455180069027`*^9, 3.839245521120179*^9}, {3.839246094517797*^9, 
   3.839246147758965*^9}, 3.839246249433226*^9, {3.839247263075226*^9, 
   3.83924727942612*^9}, {3.8392473211163683`*^9, 3.8392473893007812`*^9}, {
   3.8392474827426367`*^9, 3.8392474970338497`*^9}, {3.8392475516670647`*^9, 
   3.8392475528199463`*^9}, {3.83924759571647*^9, 3.839247599931114*^9}, {
   3.839247750060294*^9, 3.8392477532747097`*^9}, {3.8392478785309343`*^9, 
   3.839247878997941*^9}, {3.839377975873453*^9, 3.8393780853899918`*^9}, {
   3.839378123347238*^9, 3.839378142155321*^9}, 3.839378212423238*^9, {
   3.83937825153972*^9, 3.839378357379869*^9}, {3.8393789599735727`*^9, 
   3.839379024573124*^9}, {3.8393790875498743`*^9, 3.839379199198708*^9}, {
   3.839379559781972*^9, 3.839379669474408*^9}, {3.839380496268042*^9, 
   3.839380531644638*^9}, {3.8393805771917467`*^9, 3.839380579027152*^9}, {
   3.839380621314507*^9, 3.8393806405550337`*^9}, {3.8393808204342957`*^9, 
   3.839380875245516*^9}, {3.839380927694371*^9, 3.839380936889798*^9}, {
   3.8393810206527557`*^9, 3.839381059440271*^9}, {3.839381119075225*^9, 
   3.839381165169421*^9}, {3.83938123945335*^9, 3.8393812398556557`*^9}, {
   3.839381308968411*^9, 3.839381314282023*^9}, {3.8393813553818913`*^9, 
   3.8393813678650923`*^9}, {3.839381448377494*^9, 3.839381473098671*^9}, {
   3.839381524974832*^9, 3.8393815608423157`*^9}, {3.839381855834234*^9, 
   3.839381930828335*^9}, {3.8393820244030237`*^9, 3.839382060818104*^9}, {
   3.839383260106015*^9, 3.839383266202807*^9}, {3.83938333754342*^9, 
   3.839383408415057*^9}, {3.839383450650282*^9, 3.839383460383318*^9}, {
   3.83938370497226*^9, 3.83938372125246*^9}, {3.839392048243682*^9, 
   3.83939215650348*^9}, {3.839392187740464*^9, 3.839392202807328*^9}, {
   3.839392272523529*^9, 3.839392277166312*^9}, 3.839392383569765*^9, {
   3.839392413631666*^9, 3.83939241828603*^9}, {3.839395439083971*^9, 
   3.8393954751278133`*^9}, {3.8393976589690847`*^9, 3.839397683068623*^9}, {
   3.839398199074766*^9, 3.839398277706275*^9}, {3.83939837100565*^9, 
   3.839398377903104*^9}, {3.8394699461133633`*^9, 3.839469963242277*^9}, {
   3.8394700131605597`*^9, 3.839470022920644*^9}, {3.839470316553391*^9, 
   3.839470357860241*^9}, {3.839471546265689*^9, 3.839471564914003*^9}, 
   3.839473763350026*^9, {3.839475377002296*^9, 3.839475378286919*^9}, {
   3.83947559389091*^9, 3.83947559421343*^9}, 3.839479507737645*^9, {
   3.839482781504055*^9, 3.839482801748678*^9}, {3.83948284791969*^9, 
   3.839483078828156*^9}, {3.839483191079*^9, 3.839483193608677*^9}, {
   3.839483278895096*^9, 3.839483371433812*^9}, {3.839487688800949*^9, 
   3.83948771106222*^9}, {3.8394882932615*^9, 3.839488327243245*^9}, {
   3.839542831748526*^9, 3.839542872588038*^9}, {3.83954291136008*^9, 
   3.839542992756174*^9}, {3.8395480515153503`*^9, 3.839548066390786*^9}, {
   3.8395481273112087`*^9, 3.839548151093574*^9}, 3.839567684104218*^9, 
   3.839568033584937*^9, {3.83956811833209*^9, 3.8395681210116587`*^9}, {
   3.839568159367445*^9, 3.839568201782445*^9}, {3.83956824253121*^9, 
   3.839568259800654*^9}, {3.839568307031233*^9, 3.839568312368947*^9}, 
   3.839647317224956*^9, {3.83965216047211*^9, 3.839652244498352*^9}, {
   3.839652459757313*^9, 3.839652480980057*^9}, {3.8398209337033463`*^9, 
   3.8398210123572807`*^9}, 3.8398226894334087`*^9, {3.8398227237957077`*^9, 
   3.839822740893087*^9}, {3.839822819670602*^9, 3.839822820226286*^9}, {
   3.839823268641816*^9, 3.8398232732542543`*^9}, {3.839823537291583*^9, 
   3.839823537635446*^9}, {3.8398235741360607`*^9, 3.839823638389927*^9}, {
   3.8398236730036297`*^9, 3.8398236739917583`*^9}, {3.839823714176683*^9, 
   3.8398237452801867`*^9}, {3.839823890282504*^9, 3.839823894921801*^9}, {
   3.839824147751484*^9, 3.8398241496473103`*^9}, {3.839824192840968*^9, 
   3.8398241959572563`*^9}, {3.8398242360336018`*^9, 3.839824268357827*^9}, {
   3.839824303954833*^9, 3.839824369541647*^9}, {3.839824484464126*^9, 
   3.839824491695117*^9}, {3.839824725608934*^9, 3.839824731663025*^9}, 
   3.8398249122598*^9, {3.839825126247416*^9, 3.8398251571756897`*^9}, {
   3.839848863125602*^9, 3.839848929636601*^9}, {3.839848965633121*^9, 
   3.8398489701944523`*^9}, {3.8398500232024803`*^9, 3.839850047305462*^9}, {
   3.839991398989747*^9, 3.839991520362831*^9}, {3.839991595630948*^9, 
   3.839991611625*^9}, {3.839991693528294*^9, 3.839991735325605*^9}, {
   3.83999186255952*^9, 3.839991864261732*^9}, {3.8399918984729557`*^9, 
   3.839991912006049*^9}, {3.83999269720076*^9, 3.83999272277153*^9}, {
   3.839993544124793*^9, 3.839993544487479*^9}, {3.840071673735539*^9, 
   3.840071677731276*^9}, 3.840072020520957*^9, {3.840072099730763*^9, 
   3.84007215370609*^9}, {3.840076573420109*^9, 3.840076580422716*^9}, {
   3.840110983146215*^9, 3.8401110238277884`*^9}, {3.840111107715496*^9, 
   3.840111174968306*^9}, {3.840111215382918*^9, 3.840111215746584*^9}, {
   3.8401112524755917`*^9, 3.840111252747561*^9}, {3.840113679645439*^9, 
   3.840113827560645*^9}, {3.840113987638815*^9, 3.840113998025711*^9}, {
   3.8401140994675407`*^9, 3.840114146938672*^9}, {3.840114723938899*^9, 
   3.840115019657714*^9}, {3.840115273481192*^9, 3.840115360843442*^9}, {
   3.840115433911394*^9, 3.840115493345517*^9}, {3.8401155732909203`*^9, 
   3.840115725599592*^9}, {3.840115935603982*^9, 3.840116004806552*^9}, {
   3.840116048183779*^9, 3.8401160590848827`*^9}, {3.840116092917728*^9, 
   3.840116161536396*^9}, {3.8401508431256533`*^9, 3.840150877109633*^9}, {
   3.840150914121962*^9, 3.840150944265457*^9}, {3.840152808641385*^9, 
   3.840152840618491*^9}, {3.840154451161749*^9, 3.840154462442404*^9}, {
   3.8401553774961357`*^9, 3.8401553785329857`*^9}, {3.840155535585115*^9, 
   3.840155545431178*^9}, {3.840155718630844*^9, 3.8401557190817137`*^9}, 
   3.840155777540037*^9, {3.840157344464675*^9, 3.840157346784013*^9}, 
   3.840157553972823*^9, {3.840157603705863*^9, 3.8401576184321527`*^9}, {
   3.840197279581037*^9, 3.840197306837955*^9}, {3.840197344272189*^9, 
   3.8401973490809793`*^9}, {3.8401987147813787`*^9, 3.840198745390958*^9}, {
   3.840199222963571*^9, 3.8401992290725307`*^9}, 3.840369346779601*^9, {
   3.840369467444072*^9, 3.840369468504792*^9}, {3.8403695975167093`*^9, 
   3.840369698892685*^9}, {3.8403699279648952`*^9, 3.840369940326787*^9}, {
   3.84037037588988*^9, 3.840370381678438*^9}, {3.840370475255028*^9, 
   3.840370514746416*^9}, {3.840370545611986*^9, 3.840370595244685*^9}, {
   3.840370885322003*^9, 3.840370989489521*^9}, {3.840371025471431*^9, 
   3.840371111848584*^9}, {3.8403711599041643`*^9, 3.840371217411376*^9}, {
   3.840371283414915*^9, 3.8403712841944513`*^9}, {3.8403716918762217`*^9, 
   3.840371731695816*^9}, {3.84037180183037*^9, 3.840371836892295*^9}, {
   3.840371956140959*^9, 3.840372000143365*^9}, {3.840373301315256*^9, 
   3.840373408219557*^9}, {3.840373441922311*^9, 3.8403734838696537`*^9}, {
   3.840373859049398*^9, 3.840373865736018*^9}, {3.840373898837955*^9, 
   3.840373948669586*^9}, {3.840374159903266*^9, 3.8403741635781193`*^9}, {
   3.8403742832626534`*^9, 3.840374287526606*^9}, {3.840374352208601*^9, 
   3.840374395586424*^9}, {3.840374720399301*^9, 3.840375136755721*^9}, {
   3.8403752313056173`*^9, 3.840375231834104*^9}, {3.840375283921612*^9, 
   3.8403752920373096`*^9}, {3.840375400729216*^9, 3.840375412411221*^9}, {
   3.840375447628518*^9, 3.8403754601959753`*^9}, {3.840423301628243*^9, 
   3.840423315253292*^9}, {3.840423349067584*^9, 3.840423450018352*^9}, {
   3.8404235121480637`*^9, 3.840423524483392*^9}, {3.840424314581313*^9, 
   3.840424431162388*^9}, 3.8404244713324633`*^9, {3.8404245191127453`*^9, 
   3.840424557410943*^9}, 3.8404245992418423`*^9, {3.840424758092883*^9, 
   3.840424771809304*^9}, {3.840450372918063*^9, 3.840450470676489*^9}, 
   3.8404505320599194`*^9, {3.840450784213162*^9, 3.840450842451453*^9}, {
   3.8404508843009987`*^9, 3.840450888989398*^9}, {3.840450988531384*^9, 
   3.840451255736846*^9}, {3.8404512926240473`*^9, 3.840451298387169*^9}, {
   3.840451333529711*^9, 3.84045133549224*^9}, {3.8404513980969048`*^9, 
   3.840451413837305*^9}, {3.840451469881876*^9, 3.840451585392627*^9}, {
   3.840451734056808*^9, 3.840451751375887*^9}, {3.840452867942021*^9, 
   3.840452888695697*^9}, {3.840452939509082*^9, 3.840452951301519*^9}, {
   3.8404530972426043`*^9, 3.840453117246717*^9}, {3.840453160403867*^9, 
   3.8404531608046017`*^9}, {3.8406145025141487`*^9, 3.840614507633286*^9}, {
   3.840614552980586*^9, 3.8406146356389503`*^9}, {3.84061750191369*^9, 
   3.840617512879287*^9}, 3.840758887259328*^9, {3.8407640839829206`*^9, 
   3.840764104304038*^9}, {3.8407641476013927`*^9, 3.84076420281082*^9}, {
   3.840780145124687*^9, 3.8407801551411467`*^9}, {3.8407804130183992`*^9, 
   3.8407804137991543`*^9}, {3.8407806248454514`*^9, 3.840780632897641*^9}, {
   3.8407807353631067`*^9, 3.8407807356410933`*^9}, {3.840780782160225*^9, 
   3.840780789342729*^9}, 3.84078109262086*^9, {3.84078125531933*^9, 
   3.840781263587545*^9}, 3.840781594395871*^9, {3.8407819238602753`*^9, 
   3.840781970925638*^9}, {3.8407821472509193`*^9, 3.840782152818796*^9}, 
   3.840782334703246*^9, {3.840785794160569*^9, 3.8407857996605473`*^9}, {
   3.8407877309224033`*^9, 3.8407877495524*^9}, {3.840858803257465*^9, 
   3.840858803733707*^9}, {3.8408895669577847`*^9, 3.840889595076056*^9}, {
   3.840889629338854*^9, 3.840889693397376*^9}, {3.840889729109249*^9, 
   3.84088975673205*^9}, {3.8408898156888*^9, 3.8408898501770353`*^9}, {
   3.840889962005081*^9, 3.840890050830504*^9}, {3.840890148782522*^9, 
   3.840890169066165*^9}, {3.8408903133446083`*^9, 3.840890401751583*^9}, {
   3.840890440555725*^9, 3.840890477623047*^9}, {3.840891206493807*^9, 
   3.840891443007288*^9}, {3.840891501447871*^9, 3.8408915079037046`*^9}, {
   3.840891660202488*^9, 3.840891660746183*^9}, {3.840891713981398*^9, 
   3.840891776229538*^9}, {3.84089191017091*^9, 3.840891913447093*^9}, {
   3.840891962396653*^9, 3.840891977830777*^9}, {3.840892014824011*^9, 
   3.840892232064569*^9}, {3.8408922681065617`*^9, 3.840892442358223*^9}, {
   3.840892702752239*^9, 3.840892737415257*^9}, {3.8408930337056007`*^9, 
   3.840893038280954*^9}, {3.840893239068377*^9, 3.840893278210916*^9}, {
   3.840893560328938*^9, 3.840893695135025*^9}, {3.840893945958096*^9, 
   3.840893947623989*^9}, {3.840894036374804*^9, 3.8408941280755568`*^9}, 
   3.8408943150037527`*^9, {3.840895142338475*^9, 3.840895163475753*^9}, {
   3.840899067902218*^9, 3.840899143806836*^9}, {3.841035180784938*^9, 
   3.8410351937560062`*^9}, {3.841035228030846*^9, 3.8410352521699667`*^9}, {
   3.841035285176154*^9, 3.841035296425932*^9}, {3.841035372942362*^9, 
   3.841035381005392*^9}, {3.841035577139329*^9, 3.84103563262951*^9}, {
   3.841035671539246*^9, 3.841035710158142*^9}, {3.8410357415785913`*^9, 
   3.8410357418015337`*^9}, {3.84103644852603*^9, 3.841036481239709*^9}, {
   3.841037143868114*^9, 3.841037149609789*^9}, {3.841037192595986*^9, 
   3.841037375723028*^9}, {3.841037478447503*^9, 3.841037481854822*^9}, {
   3.841038339998214*^9, 3.8410384114629183`*^9}, {3.841038519966865*^9, 
   3.841038571940979*^9}, {3.8410386030501537`*^9, 3.841038756106967*^9}, {
   3.841038871736299*^9, 3.8410390324790907`*^9}, 3.841039067571817*^9, {
   3.8410395856207848`*^9, 3.841039597076075*^9}, {3.8410396676316423`*^9, 
   3.841039703344645*^9}, {3.8410397908150187`*^9, 3.8410398038990793`*^9}, {
   3.841039879824265*^9, 3.8410399259292793`*^9}, {3.841040001449625*^9, 
   3.841040013951789*^9}, {3.8410400707087727`*^9, 3.84104026554556*^9}, {
   3.841047201595338*^9, 3.841047201845482*^9}, {3.841047239560215*^9, 
   3.841047264680307*^9}, {3.841047318848938*^9, 3.841047325231564*^9}, {
   3.841047360514165*^9, 3.8410473877396517`*^9}, {3.841047422983416*^9, 
   3.841047434381641*^9}, {3.841047476603612*^9, 3.841047485056148*^9}, {
   3.841047880868585*^9, 3.841047888689495*^9}, {3.841307928202202*^9, 
   3.84130792857833*^9}, {3.841308272581972*^9, 3.841308273612527*^9}, {
   3.841356808883568*^9, 3.841356811513055*^9}, {3.841363027537059*^9, 
   3.841363048373436*^9}, {3.841364509611271*^9, 3.841364534176031*^9}, {
   3.841364612029128*^9, 3.841364612239626*^9}, 3.841364659826326*^9, {
   3.8413647172812147`*^9, 3.841364719102913*^9}, {3.84794711405188*^9, 
   3.847947124461833*^9}, {3.847947193546393*^9, 3.8479472400123453`*^9}, {
   3.8479472727424707`*^9, 3.847947372339395*^9}, {3.8479522223124228`*^9, 
   3.847952231374607*^9}, {3.847952551591982*^9, 3.84795255310172*^9}, {
   3.847953400937261*^9, 3.8479534018061132`*^9}, {3.8479543623731318`*^9, 
   3.847954362726575*^9}, 3.847956529339357*^9, {3.847956569514242*^9, 
   3.8479565882953653`*^9}, 3.847956971558625*^9, {3.847957050409214*^9, 
   3.847957076081015*^9}, {3.847957329994659*^9, 3.847957339677861*^9}, {
   3.847957606288557*^9, 3.84795760669123*^9}, {3.8479585067987423`*^9, 
   3.8479585342940197`*^9}, {3.847958622883889*^9, 3.8479586327394743`*^9}, {
   3.847967999803762*^9, 3.847968211705963*^9}, {3.8480389309704647`*^9, 
   3.848038945527965*^9}, {3.848039577046179*^9, 3.848039659118421*^9}, {
   3.8481459446323566`*^9, 3.848145953032228*^9}, {3.848202115951808*^9, 
   3.848202119717218*^9}, {3.848202468192997*^9, 3.848202473814865*^9}, {
   3.848204393335639*^9, 3.848204405770049*^9}, {3.863927893535658*^9, 
   3.863927911783269*^9}, {3.863927954409658*^9, 3.863928004064858*^9}, {
   3.863928045699727*^9, 3.8639280622827463`*^9}, 3.863928102950693*^9, 
   3.86392814286301*^9, {3.863928660186468*^9, 3.8639286911448183`*^9}, {
   3.863929386681425*^9, 3.8639294179395123`*^9}, {3.8639298788398733`*^9, 
   3.863929905295794*^9}, {3.863930126691593*^9, 3.863930151278574*^9}, {
   3.863930405524818*^9, 3.8639304072561083`*^9}, {3.863930438789462*^9, 
   3.8639304443249683`*^9}, {3.863930479306624*^9, 3.863930481909889*^9}, {
   3.8639305171828337`*^9, 3.8639305244391947`*^9}, {3.863930557247179*^9, 
   3.863930576108411*^9}, 3.863932931855956*^9, {3.8639982470265617`*^9, 
   3.863998275559477*^9}, {3.8639985742173157`*^9, 3.8639985750579844`*^9}, {
   3.863998846533284*^9, 3.863998852220909*^9}},
 CellLabel->
  "In[354]:=",ExpressionUUID->"6adbdbdc-2681-4a6c-8a47-10b5f41c46a8"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"References", ":"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"[", "1", "]"}], " ", "Sardanashvili", " ", "p", ".176"}], ";"}],
    "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"[", "2", "]"}], " ", "Sardanashvili", " ", "p", ".177"}], ";"}],
    "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"[", "3", "]"}], "-", 
    RowBox[{"Sardanashvili", " ", "SA", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"p", ".188"}], "-", "189"}], ")"}]}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"[", "4", "]"}], "-", 
    RowBox[{"Sardanashvili", " ", "SA", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"p", ".189"}], "-", "190"}], ")"}]}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"[", "5", "]"}], "-", 
    RowBox[{"Sardanashvili", " ", "SA", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"p", ".190"}], "-", "191"}], ")"}]}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"[", "6", "]"}], "-", 
    RowBox[{"Sardanashvili", " ", "SA", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"p", ".191"}], "-", "192"}], ")"}]}]}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.833839510200776*^9, 3.8338395146359653`*^9}, {
  3.834399489499786*^9, 3.834399492549246*^9}, {3.83947557888713*^9, 
  3.839475581894116*^9}, {3.8394882656662283`*^9, 3.839488268511479*^9}, {
  3.840157624921094*^9, 3.840157631867847*^9}, {3.841356753473412*^9, 
  3.841356762969708*^9}, {3.84959089682964*^9, 
  3.849590897298923*^9}},ExpressionUUID->"dd1f3b0d-3267-4bb3-ba73-\
5a1ae84aa970"]
},
WindowSize->{1384.5, 762},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
Magnification:>1.85 Inherited,
FrontEndVersion->"13.3 for Linux x86 (64-bit) (June 3, 2023)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"f6e4afcb-91fd-4696-9996-c8ed833ad0e9"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 250922, 5056, 36845, "Input",ExpressionUUID->"6adbdbdc-2681-4a6c-8a47-10b5f41c46a8"],
Cell[251483, 5078, 1755, 51, 281, "Input",ExpressionUUID->"dd1f3b0d-3267-4bb3-ba73-5a1ae84aa970"]
}
]
*)

